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

' Открыть дверцу CD-ROM
mciSendString "Set CDAudio Door Open Wait", 0&, 0&, 0&

' Закрыть дверцу CD-ROM
mciSendString "Set CDAudio Door Closed Wait", 0&, 0&, 0&