Visual Basic - Expulsar Lectora de CD?

¿Hay Alguna forma de hacer un executable que solo expulse la Lectora de CD?
Gracias...

En el modulo :

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 la forma:


Private Sub Command1_Click()
Dim res As Long, returnstring As String * 127
res = mciSendString("set CDAudio door open", returnstring, 127, 0)
MsgBox "tu compuerta esta abierta", vbInformation
End Sub

Private Sub Command2_Click()
Dim res As Long, returnstring As String * 127
res = mciSendString("set CDAudio door closed", returnstring, 127, 0)
MsgBox "tu compuerta esta cerrada", vbInformation
End Sub


eso es todo si tiene problemas mandame un mail!!!