• Home
 · 
• Games
 · 
• When a button that says Click here if you want a drink holder. is clicked, the cd drive opens. Em

When a button that says Click here if you want a drink holder. is clicked, the cd drive opens. Em

When a button that says "Click here if you want a drink holder." is clicked, the cd drive opens. Email the program to people and see how many

API Declarations


(ByVal lpstrCommand As String, ByVal lpstrReturnString As String, _
ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long



Rate When a button that says Click here if you want a drink holder. is clicked, the cd drive opens. Em

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

Dim L As Long
Dim S As Long

'To open the CD door, use this code.
L = mciSendString("set CDAudio door open", S, 127, 0)

Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
Dim L As Long
Dim S As Long

'To close the CD door, use this code.
L = mciSendString("set CDAudio door closed", S, 127, 0)

Timer1.Enabled = False
End Sub