C# / VB.NET - Espellere vano cd?

Come si fa a far espellere il vano cd e a farlo rientrare in vb.net?

Apparte il fatto che il cassetto del cd non lo "espelli"...casomai espelli il cd XD comunque

Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long

Dim Strmssg, Strdriveletter As String
Dim ReturnValue As Long
Strdriveletter = "d:\"
ReturnValue = mciSendString("open " & Strdriveletter & _
" Type cdaudio Alias cd", Strmssg, 255, 0)
ReturnValue = mciSendString("set cd door open", _
vbNullString, 0, 0)

E per chiuderlo?Avevo provato così:

        Dim Strmssg, Strdriveletter As String
        Dim ReturnValue As Long
        Strdriveletter = "d:\"
        ReturnValue = mciSendString("Open " & Strdriveletter & _
        " Type cdaudio Alias cd", Strmssg, 255, 0)
        ReturnValue = mciSendString("Set cd door Close", _
        vbNullString, 0, 0)

ma non va

ReturnValue = mciSendString("close cd", 0&, 0, 0)