ENDEDLISTVIEWSTYLE, 0, 0)
      lStyle = lStyle Or LVS_EX_FULLROWSELECT
      SendMessageByLong .hWnd, LVM_SETEXTENDEDLISTVIEWSTYLE, 0, lStyle

   End With
End Sub

Private Sub ShowDrives()
Dim i As Long
   
   Set m_cRip = New cCDRip
   m_cRip.Create App.Path &amp; "\cdrip.ini" ' this INI file isn't used currently
   
   For i = 1 To m_cRip.CDDriveCount
      cboDrives.AddItem m_cRip.CDDrive(i).Name
   Next i
   
   If (cboDrives.ListCount &gt; 0) Then
      cboDrives.ListIndex = 0
   Else
      ShowTracks