Visual Basic - Expulsar el CD-ROM

SALUDOS DESDE COSTA RICA ;)

La consulta es la siguiente:
Como puedo hacer que el CD-ROM se expulse por medio de codigo, esto lo hace el explorer de Windows por lo ke me imagino ke se puede hacer desde Visual...

Tienes que utilizar la funcion de la API:

Public 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

Entonces en un Form:
Dim lngReturn As Long
Dim strReturn As Long
Private Sub CmdAbrir_Click()
lngReturn = mciSendString("set CDAudio door open", strReturn, 127, 0)
End Sub
Private Sub CmdCerrar_Click()
lngReturn = mciSendString("set CDAudio door closed", strReturn, 127, 0)
End Sub

Saludos

SALUDOS DESDE COSTA RICA

Gracias Por el Codigo...
Esta exelente ;)