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 Private Sub btn_Abrir_Click() mciSendString "set cdaudio door open", 0, 0, 0 End Sub Private Sub btn_Cerrar_Click() mciSendString "set cdaudio door closed", 0, 0, 0 End Sub