RE:Expulsar Lectora de CD?
Con esta 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
con esta linea de codigo la abris
ret = mciSendString("set CDAudio door open", returnstring, 127, 0)
y con esta para cerrar
ret = mciSendString("set CDAudio door closed", returstring, 127, 0)