Membuka dan Menutup CD-Rom dg Visual Basic

Disini saya punya sebuah program sederhana yang dibuat dg visual basic 6.0, program ini dapat digunakan untuk membuka dan menutup CD-Rom yang ada di kompi kita. Source code'y yang dibutuhkan juga nggak terlalu banyak dan ribet. Seperti biasa karena program ini masih sederhana jadi masih dapat dikembangkan lagi dengan improvisasi sendiri...hehe,
Ok, lansung aja saya akan memberikan tutorialnya secara live disini...Let's cekidot...

Pertama-tama Buka project baru dengan standard exe
pada form masukkan
[-] 2 buah command button
[-] Tambahkan sebuah module (Project - add module)
Kemudian Masukkan script ini didalam form :

Private Sub Command1_Click()
x = mciSendString("set cdaudio door open", 0&, 0, 0)
End Sub

Private Sub Command2_Click()
x = mciSendString("set cdaudio door closed", 0&, 0, 0)
End Sub

Lalu masukkan lagi script ini pada module :

Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As Any, ByVal uReturnLength As Long, ByVal hWndCallback As Long) As Long

compile dan jalankan, Selamat Mencoba... :)