by Shahid Rasool (8 Submissions)
Category: Windows System Services
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Sat 16th October 2004
Date Added: Mon 8th February 2021
Rating: 
(1 Votes)
Open Cd Gate Close Cd Gate Nice For Multimedia Builder
VBcoders
'[email protected]
Private Sub Command1_Click()
On Error Resume Next
Dim Ret As Long
Dim RetStr As String
Select Case Index
Case Is = 0: Ret = MCISendString("set CDAudio door open", RetStr, 127, 0)
Case Is = 1: Ret = MCISendString("set CDAudio door closed", RetStr, 127, 0)
End Select
End Sub
Private Sub Command2_Click()
Dim Ret As Long
Dim RetStr As String
Select Case Index
Case Is = 0: Ret = MCISendString("set CDAudio door closed", RetStr, 127, 0)
Case Is = 1: Ret = MCISendString("set CDAudio door open", RetStr, 127, 0)
End Select
End Sub
