e Function CR_IsAudioPlaying Lib "cdrip.dll" () As Long

'// Play track
Private Declare Function CR_PlayTrack Lib "cdrip.dll" (ByVal nTrack As Long) As
 Long

'// Stop Play track
Private Declare Function CR_StopPlayTrack Lib "cdrip.dll" ()

'// Pause Play track
Private Declare Function CR_PauseCD Lib "cdrip.dll" (ByVal bPause As Long)


Private m_index As Long
Private m_tP As CDROMPARAMS
Private m_bDirty As Boolean

Friend Property Get fCDIndex() As Long
   fCDIndex = m_index
End Property

Public Property G