 CDRipErrHandler "cCDDriveRip.CDDriveCount", Abs(Not (m_bCreated)), False
   CDDriveCount = CR_GetNumCDROM()
End Property

Public Property Get Version() As Long
   Version = CR_GetCDRipVersion()
End Property

Public Property Get CDDrive(ByVal nIndex As Long) As cDrive
   Dim c As New cDrive
   c.fInit nIndex - 1
   Set CDDrive = c
End Property

Public Property Get ActiveCDDriveIndex() As Long
   ActiveCDDriveIndex = CR_GetActiveCDROM() + 1
End Property

</pre><p>&#160;</p><p>&#160;</p><p>&#160;</p><p>&#160;