Membuka dan Menutup CD - Rom dengan VB

untuk membuat applikasi yang bisa di pakai untuk menutup dan membuka CD - Rom,sangat mudah sekali, cukum menuliskan kode ini didalam Form, ada pun perlengkapan yang harus di persiapkan sebelum menuliskan kode di bawah ini adalah sebuah form dengan comman

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

Selamat mencoba