بستن و باز کردن سی دی رم
بازکردن...
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
ابتدا این کد در قسمت جنرال نوشته شود
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