et IsUnitReady() As Boolean
   CR_SetActiveCDROM m_index
   IsUnitReady = IIf(CR_IsUnitReady() = 0, False, True)
End Property
Public Property Get IsAudioPlaying() As Boolean
   CR_SetActiveCDROM m_index
   IsAudioPlaying = IIf(CR_IsAudioPlaying() = 0, False, True)
End Property
Public Sub EjectCD()
   CR_SetActiveCDROM m_index
   CR_EjectCD 1
End Sub
Public Sub CloseCD()
   CR_SetActiveCDROM m_index
   CR_EjectCD 0
End Sub

Public Sub PlayCDTrack(ByVal nIndex As Long)
   CDRipErrHandler "cDrive.PlayCDTrack",