 With
         Next i
         
         lvwTracks.Enabled = (m_cToc.Count &gt; 0)
         cmdRip.Enabled = (m_cToc.Count &gt; 0)
         
      Else
         lvwTracks.ListItems.Add , , "No CD In Drive"
      End If
   Else
      lvwTracks.ListItems.Add , , "No CD Selected"
   End If

End Sub

Private Sub cboDrives_Click()
   ShowTracks
End Sub

Private Sub cmdAbout_Click()
Dim fA As New frmAbout
Dim sAck As String
   sAck = "This sample uses components from CDEx, Copyright  1999 Albert L.
    Faber and 