 ShowTracks
End Sub

Private Sub cmdRip_Click()
Dim lIndex As Long
   
   lIndex = cboDrives.ListIndex + 1
   If (lIndex &gt; 0) Then
      
      Dim cD As cDrive
      Set cD = m_cRip.CDDrive(lIndex)
      If (cD.IsUnitReady) Then
   
         Dim fRip As New frmRipDialog
         
         fRip.OutputDir = App.Path
         fRip.RipTOC = m_cToc
         Dim itm As ListItem
         For Each itm In lvwTracks.ListItems
            If (itm.Selected) Then
               fRip.RipTrack(CLng(Mid(itm.Key, 2))) =