Mit den folgenden Makros können Sie das CD-ROM-Fach / die CD-ROM-Tür öffnen und schließen. Deklarieren Sie Sub mciSendStringA Lib „winmm.dll“ (ByVal lpstrCommand As String, _ ByVal lpstrReturnString As Any, ByVal uReturnLength As Long, _ ByVal hwndCallback As Long)

Sub OpenCDTray()

mciSendStringA "Set CDAudio Door Open", 0&, 0, 0

End Sub

Sub CloseCDTray()

mciSendStringA "Set CDAudio Door Closed", 0&, 0, 0

End Sub