Visual Basic - Expulsar Lectora de CD?

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

claro
komo ke no se va a poder ?!?!
haces el projecto y despues lo compilas
el codigo es el siguiente :

'Declaraciones:

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

'Para abrir la puerta ( esto, si queres, lo pones en el form_load )

dim res as long, returnstring as string*127
res = mcisendstring("set CDAudio door open", returnstring, 127, 0)

'Y para cerrarla ( esto, si queres, lo pones en el form_unload )

dim res as long, returnstring as string*127
res = mcisendstring("set CDAudio door closed", returnstring, 127, 0)

ahora solo te falta hacer el compilado ( hacerlo executable )