e Items")
         Debug.Print cG.Header
         For i = 1 To 5
            lvwMain.ListItems(i).Group = cG
         Next i
         
         ' Create a group and add the next ten items:
         Set cG = lvwMain.ItemGroups.Add(5, "GROUP2", "Next Ten Items")
         For i = 6 To 15
            lvwMain.ListItems(i).Group = cG
         Next i
         
         ' And the rest:
         Set cG = lvwMain.ItemGroups.Add(15, "GROUP3", "The Remainder")
         For i = 16 To lvwMain.ListItems.Count
            