button open:
Private Sub Command1_Click()
mciSendString "Set CDAudio Door Open Wait", _
0&, 0&, 0&
End Sub |
button dicht:
Private Sub cmdClose_Click()
mciSendString "Set CDAudio Door Closed Wait", _
0&, 0&, 0&
End Sub |
module:
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
|