Private Declare Function mciSendString Lib "winmm.DLL" Alias _
"mciSendStringA" (ByVal lpstrCommand As String, ByVal _
lpstrReturnString As String, ByVal wReturnLength As Integer, ByVal _
hCallback As Integer) As Long
 
Sub closeTray()
Call mciSendString("Set CDAudio Door Closed Wait", 0&, 0, 0)
End Sub
     
Sub openTray()
Call mciSendString("Set CDAudio Door Open Wait", 0&, 0, 0)
End Sub
