RE:Expulsar Lectora de CD?
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!!!