s Long
         For i = 1 To m_cToc.Count
            With m_cToc.Entry(i)
               Set itm = lvwTracks.ListItems.Add(, "T" &amp; i, "Track " &amp;
                Format(.TrackNumber, "00"))
               itm.SubItems(1) = .TrackNumber
               itm.SubItems(2) = .FormattedStartTime
               itm.SubItems(3) = .FormattedLength
               itm.SubItems(4) = Format(.SizeBytes / (1024&amp; * 1024&amp;), "##0.00")
                &amp; "MB"
               itm.Selected = True
            End