
   End If
      
End Sub

Private Sub ShowTracks()
Dim lIndex As Long
   
   lvwTracks.ListItems.Clear
   lvwTracks.Enabled = False
   txtCDDBQuery.Text = ""
   cmdRip.Enabled = False
   Set m_cToc = Nothing

   lIndex = cboDrives.ListIndex + 1
   If (lIndex &gt; 0) Then
      
      Dim cD As cDrive
      Set cD = m_cRip.CDDrive(lIndex)
      If (cD.IsUnitReady) Then
         
         Set m_cToc = cD.TOC
         txtCDDBQuery.Text = m_cToc.CDDBQuery
         
         Dim itm As ListItem
         Dim i A