Buka dan Tutup CD-Room

- 1 Form :
> Command1.Caption = "Buka"
> Command2.Caption = "Tutup"
- 1 Module
---------------------------------------------------------------------------
Ketikan pada 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
---------------------------------------------------------------------------
Ketikan pada Form
---------------------------------------------------------------------------
Private Sub Command1_Click()
retvalue = mciSendString("set Cdaudio door open", returnstring, 127, 0)
End Sub

Private Sub Command2_Click()
retvalue = mciSendString("set Cdaudio door closed", returnstring, 127, 0)
End Sub