 wMsg As Long, ByVal wParam As Long, ByVal lParam As
 Long) As Long
Private Const LVM_FIRST = &amp;H1000                   '// ListView messages
Private Const LVM_GETEXTENDEDLISTVIEWSTYLE = (LVM_FIRST + 55)
Private Const LVM_SETEXTENDEDLISTVIEWSTYLE = (LVM_FIRST + 54) '// optional
 wParam == mask
Private Const LVS_EX_FULLROWSELECT = &amp;H20         '// applies to report mode
 only

Private m_cRip As cCDRip
Private m_cToc As cToc

Private Sub ConfigureListView()
   With lvwTracks
      .View = lvwReport
   