View: - 382
'DECLARATION 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() ' FOR OPENING CD-ROM DOOR retvalue = mciSendString("set CDAudio door open", returnstring, 127, 0) End Sub Private Sub Command2_Click() ' FOR CLOSING CD-ROM DOOR retvalue = mciSendString("set CDAudio door closed", returnstring, 127, 0) End Sub
