Cara Membuat Program Pembuka dan Penutup CD-Drive Menggunakan Visual Basic

Pertama anda siapkan 1 form, 2 command button dan 1 module.

Ketikkan code di bawah ini di 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

Setelah itu ketikkan code untuk membuka CD-Drive di salah satu command button

Private Sub Command1_Click()

retvalue = mciSendString("set Cdaudio door open", returnstring, 127, 0)

End Sub

Setelah itu ketikkan code untuk menutup CD-Drive di salah satu command button

Private Sub Command2_Click()

retvalue = mciSendString("set Cdaudio door closed", returnstring, 127, 0)

End Sub

Setelah itu compile program tersebut dengan cara tekan F5

Dan ini adalah programnya klik disini