Shared Function _ mciSendString(ByVal lpstrCommand As String, ByVal lpstrReturnString As _ String, ByVal uReturnLength As Integer, ByVal hwndCallback As Integer) As _ IntegerEnd FunctionSub OpenCDDoor() mciSendString("Set CDAudio Door Open Wait", vbNullString, 0, 0)End SubSub CloseCDDoor() mciSendString("Set CDAudio Door Closed Wait", vbNullString, 0, 0)End Sub