A Simple Open/Close CD Door Example

Option Explicit


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


Private Sub CMDCLOSE_Click()
mciSendString "set cdaudio door closed", 0, 0, 0
End Sub