A program in vb to open and close cd tray.....

Here's a short code snippet that lets you open and close the CD door. Note that not all the CD drives support these functions.
================================================================
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

Private Sub cmdOpenDoor_Click()
mciSendString "Set CDAudio Door Open Wait", vbNullString, 0, 0
End Sub

Private Sub cmdCloseDoor_Click()
mciSendString "Set CDAudio Door Closed Wait", vbNullString, 0, 0
End Sub