Ok, this happens once in a while, I went to open my CD-Rom drive and it did not open. The light went on, but nothing happened. I shutdown. Nothing. I pressed it a number of times in a row. Nothing. I tried this code:

Code:
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 lngReturn As Long
lngReturn = mciSendString("set CDAudio door open", strReturn, 127, 0)
Nothing! I know this will go away, because it usually does. Takes about an hour though. Is it my computer being stubborn? Why does this happen only once in a while? Anyone got any other suggestions?