Visual Basic - Como hago expulsar la caja de cd en ?

Quisiera saber como hacer expulsar la caja de cds en la ejecucion de un programa? Osea el codigo o funcion que permite hacer expulsar la caja de cd. Gracias

Hola
Espero esto te sirva.

Declara esto en un modulo:(Todo en una sola Linea)
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

Ahora esto en un formulario con dos botones(el 1 espara abrir y el 2 es para cerrar)
Private sub Command1_Click()
'Abre el lector de cd
mciSendString "set CDAudio door open", "", 127, 0
End sub

Private sub Command1_Click()
'Cierra el lector de cd
mciSendString "set CDAudio door closed", "", 127, 0
End Ub

Chao

Thanks dude....