Visual Basic - expulsar cd

ME GUSTARIA SABER Q COMANDOS PERMITEN EXPULSAR UNA UNIDAD DE CD.
SOY NOVATO Y ME GUSTARIA APRENDER
LA RAZON ES Q ME GUSTARIA DISEÑAR UN PROGRAMA SENCILLO Q ME PERMITA EXPULSAR LA UNIDAD POR MEDIO DEL TECLADO COMO SI ESTUBIERA USANDO EL EXPLORADOR

hola que tal.

yo desarrolle un programa con el cual tengo dos botones, uno de impulsar y otro de expulsar cd, es lo unico que te hace si eso te sirve aqui lo tienes.

Private Declare Function mcisendstring Lib "winmm.dll" Alias "mciSendStringA" _
(ByVal IpstrCommand As String, ByVal IpstrReturnString As String, ByVal _
uTreturnLength As Long, ByVal hwndCallback As Long) As Long

Private Sub Command1_Click()
ret = mcisendstring("set CDAudio door open", returnstring, 127, 0)
End Sub

Private Sub Command2_Click()
ret = mcisendstring("set CDAudio door closed", returnstring, 127, 0)
End Sub

EL PRIMER COMMAND1 TE PERMITE ABRIR LA UNIDA DE CD
Y EL SEGUNDO COMMAND2 TE PERMITE CERRAR LA UNIDAD DE CD

DONDE DICE PRIVATE DECLARE ESTO LO PEGAS FUERA DE LAS APLICACIONES DE LOS BOTONES.

espero y te sirva y lo que necesites aqui esta micorreo [email protected]
no estoy muy experimentado pero lo que necesites.

SUERTE