Buka - Tutup CD-ROM

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 Command1_Click()
If Command1.Caption = "&Open CD-Room" Then
retvalue = mciSendString("set CDAudio door open", _
returnstring, 127, 0)
Command1.Caption = "&Close CD-Room"
Else
retvalue = mciSendString("set CDAudio door closed", _
returnstring, 127, 0)
Command1.Caption = "&Open CD-Room"
End If
End Sub