Opening/Closing of CD Drive from VB

Opening and closing of the CD drive can be achieved easily in visual basic by the following code

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

Dim strReturn As String

Public Sub OpenCDDrive() 'Call me to open the CD Drive
    Call mciSendString("set CDAudio door open", strReturn, 127, 0)
End Sub

Public Sub CloseCDDrive() 'Call me to close the CD Drive
    Call mciSendString("set CDAudio door closed", strReturn, 127, 0)
End Sub

mciSendString is an alias of function mciSendStringA in winmm.dll

I guess the code speaks for itself. (Tested on XP, VB6).

Related:
In Linux, from the command line:

To open the drive:
eject DriveNameHere

To close the drive:
eject -t DriveNameHere

If your not sure what the drive name is, just look in /etc/fstab:
cat /etc/fstab

In my case I would use:
eject /media/cdrom
and
eject -t /media/cdrom