   .ColumnHeaders.Add , "Name", "Name"
      .ColumnHeaders.Add , "Track", "Track", 48 * Screen.TwipsPerPixelX,
       lvwColumnRight
      .ColumnHeaders.Add , "StartTime", "Start Time", 64 *
       Screen.TwipsPerPixelX, lvwColumnRight
      .ColumnHeaders.Add , "Length", "Length", 64 * Screen.TwipsPerPixelX,
       lvwColumnRight
      .ColumnHeaders.Add , "Size", "Size (Mb)", 64 * Screen.TwipsPerPixelX,
       lvwColumnRight
   
      Dim lStyle As Long
      lStyle = SendMessageByLong(.hWnd, LVM_GETEXT