• Home
 · 
• Windows System Services
 · 
• Open Cd Gate Close Cd Gate Nice For Multimedia Builder

Open Cd Gate Close Cd Gate Nice For Multimedia Builder

Open Cd Gate Close Cd Gate Nice For Multimedia Builder

Rate Open Cd Gate Close Cd Gate Nice For Multimedia Builder

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

'[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