Open or Shut the CD-ROM Drive Door

Version Compatibility:

Instructions: Copy the declarations and code below and paste directly into your VB project.

Declarations:
Option Explicit Private Declare Function mciSendString Lib "winmm.dll" _ Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal _ pstrReturnString As String, ByVal uReturnLength As Long, ByVal _ wndCallback As Long) As Long