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 Form_Load()

Call mciSendString("Set CDAudio Door Open Wait", 0&, 0&, 0&)
Unload Me

End Sub

'vb 6
Option Explicit
Dim mssg As String * 255

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 Form_Activate()
   Form1.Visible = False
End Sub

Private Sub Form_Load()
   'open connection to cdaudio device
   Call mciSendString("open cdaudio alias cd1", 0, 0, 0)
   
   'check the status of the cdaudio divice
   Call mciSendString("status cd1 mode", mssg, 255, 0)
   
   'if the door is open, close it other wise open it
   If Left(mssg, 4) = "open" Then
      Call mciSendString("set cd1 door closed wait", 0, 0, 0)
   Else
      Call mciSendString("set cd1 door open wait", 0, 0, 0)
   End If
   
   'close the connection to the cdaudio device
   Call mciSendString("close cdaudio alias cd1", 0, 0, 0)
   
   Unload Me
End Sub