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