VB - open & close CD door

[janis]

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

Dim retvalue As Long
Dim ReturnString As String
Private Sub Command1_Click()
ReturnString = "0&"
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

regards

[BrandonTurner]

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 
 
Dim retvalue As Long 
Dim ReturnString As String 
Private Sub Command1_Click() 
ReturnString = "0&" 
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