 m_bRipping As Boolean
Private m_bCancel As Boolean

Public Sub RipSelected()
Dim i As Long
   
   m_bRipping = True
   For i = 1 To m_selCount
      If (m_bRipping) Then
         Rip m_selTracks(i)
         prgSelected.value = i
      End If
   Next i
   m_bRipping = False
   Unload Me
   
End Sub

Private Sub Rip(ByVal lTrack As Long)
Dim sFile As String
Dim cWriter As cWAVWriter
Dim cTrack As cTocEntry
   
   prgTrack.value = 0
   
   sFile = m_sDir &amp; "Track" &amp; Format(lTrack, "00") &amp; ".wav"
 