Buka Tutup CD dengan Visual Basic

ini scriptnya:

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