The MultiMedia function provide several commands via the mciSendString API. Perhaps one of the most frequently requested is ejecting (and loading) a CD automatically from code. Using a single line call, this is easily achieved.

Add the following code to a BAS module:

Option Explicit

Public 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", _
        vbNullString, 0, 0

Закрыть дверцу CD-Rom:

    mciSendString "Set CDAudio Door Closed Wait", _
        vbNullString, 0, 0