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...

En la sección Declaraciones de un Form, colocar el siguiente código: (podes sacarlo del Visor de Texto API):
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

En tu proyecto, en el evento para abrir el CD colocá:

retornar = mciSendString("set CDAudio door open", returnstring, 127, 0)

Y en el evento para cerrar el cajero:

ret = mciSendString("set CDAudio door closed", returstring, 127, 0)