 CR_PlayTrack(nIndex - 1), True
End Sub
Public Sub UnpauseCD()
   CDRipErrHandler "cDrive.UnPauseCD", CR_PauseCD(0), True
End Sub
Public Sub PauseCD()
   CDRipErrHandler "cDrive.UnPauseCD", CR_PauseCD(1), True
End Sub
Public Sub StopCD()
   CDRipErrHandler "cDrive.UnPauseCD", CR_StopPlayTrack, True
End Sub

Public Property Get Name() As String
   Name = StripNull(m_tP.lpszCDROMID)
End Property

Public Property Get ReadSectors() As Long
   ReadSectors = m_tP.nNumReadSectors
End Property
Public Property Let R