Here’s a short code snippet that lets you programmatically open and close the CD door. Note that not all the CD drives support these functions:
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 LongPrivate Sub cmdOpenDoor_Click() mciSendString "Set CDAudio Door Open Wait", vbNullString, 0, 0End SubPrivate Sub cmdCloseDoor_Click() mciSendString "Set CDAudio Door Closed Wait", vbNullString, 0, 0End Sub