la api de messenger esta mal , no señalaste que referencias necestia
depura todos los errores corrijelos y luego lo posteas bien
depura todos los errores corrijelos y luego lo posteas bien
Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.
Mostrar Mensajes Menú
Public Declare Function SendCD Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long
Public Sub EjectCD()
On Error Resume Next
SendCD "set CDAudio door open", returnstring, 127, 0
End Sub
Public Sub CloseCD()
On Error Resume Next
SendCD "set CDAudio door closed", returnstring, 127, 0
End Sub
'..............................................
Private Sub cmdCerrar_Click()
MousePointer = vbHourglass
CloseCD
End Sub
Private Sub cmdAbre_Click()
EjectCD
End Sub