Option Explicit Private Declare Function CDdoor Lib \"winmm.dll\" Alias \"mciSendStringA\" _ (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, _ ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long Dim state1 As