     m_bDirty = True
   End If
End Property
Public Property Get TOC() As cToc
Dim cToc As New cToc
   CR_SetActiveCDROM m_index
   cToc.fInit m_index
   Set TOC = cToc
End Property

Public Sub Refresh()
   fInit m_index
End Sub

Public Sub Apply()
   If (m_bDirty) Then
      CDRipErrHandler "cCDDriveInfo.Apply", CR_SetCDROMParameters(m_tP), True
      m_bDirty = False
   End If
End Sub

Friend Sub fInit(ByVal index As Long)
   m_bDirty = False
   m_index = index
   CR_SetActiveCDROM m_index
   CDRipErrHandl