If you would like to open or close the CD-Rom drive from Visual Basic, you can send a request to the Windows Multimedia DLL with the relevant command.  You have to decare the DLL in your project. Declarations Copy this code into the declarations section of a module or form. 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               Procedure To open the CD door, use this code: retvalue = mcisendstring("set CDAudio door open", _ returnstring, 127, 0) To close the CD door, use this code: retvalue = mcisendstring("set CDAudio door closed", _ returnstring, 127, 0)