Với các macro dưới đây, bạn có thể mở và đóng khay / cửa CD-ROM. Khai báo 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