how can i open cd rom in vb

[meccos]

i need the line code to open cd rom in vb


thank you !!!!!

[Static]

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
'Open it
retvalue = mcisendstring("set CDAudio door open", returnstring, 127, 0) 
'Close it
retvalue = mcisendstring("set CDAudio door closed", returnstring, 127, 0)

you don't really need to pass the 3rd argument as 127. Leaving it blank will work as well.

retVal = mciSendString("set CDAudio door open", returnstring, 0, 0)