roperty
      End If
   Next i
   m_selCount = m_selCount + 1
   ReDim Preserve m_selTracks(1 To m_selCount) As Long
   m_selTracks(m_selCount) = lIndex
End Property

Private Sub cmdCancel_Click()
   '
   If (m_bRipping) Then
      m_bCancel = True
   Else
      Unload Me
   End If
   '
End Sub

Private Sub Form_Load()
   '
   prgSelected.value = 0
   prgSelected.Max = m_selCount
   prgTrack.value = 0
   prgTrack.Max = 100
   
   lblInfo.Caption = "Preparing to rip " &amp; m_selCount &amp; "tracks..."
   
 