n CR_GetNumCDROM Lib "cdrip.dll" () As Long
Private Declare Function CR_GetActiveCDROM Lib "cdrip.dll" () As Long

Private m_sIniFile As String
Private m_bCreated As Boolean

Public Sub Create(ByVal sIniFile As String)
Dim e As ECDRipErrorCode
   If Not (m_bCreated) Then
      m_sIniFile = sIniFile
      e = CR_Init(sIniFile)
      If (e = CDEX_OK) Then
         m_bCreated = True
      End If
      CDRipErrHandler "cCDDriveRip_Create", e, True
   End If
End Sub

Public Property Get CDDriveCount() As Long
  