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()
 mciSendString "Set CDAudio door open", 0&, 0&, 0&
 mciSendString "Set CDAudio door closed", 0&, 0&, 0&
End Sub