How do I detect if the CDROM drive is open?

Public 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

Sub CD_OpenDoorCD()
'Opens CD-Rom door
Call MciSendString("set cd door open", 0, 0, 0)
End Sub

Now it's opened .