(chkGridLines.Value = Checked)
End Sub

Private Sub chkGroupView_Click()
   
   ' very slow unless we do this
   lvwMain.Visible = False
   If (chkGroupView.Value = vbChecked) Then
      Dim i As Long
      
      ' Create three groups and display them on screen:
      lvwMain.ItemGroups.Enabled = True
      
      If (lvwMain.ItemGroups.Count = 0) Then
         ' Create a group and add the first five items to it:
         Dim cG As cItemGroup
         Set cG = lvwMain.ItemGroups.Add(1, "GROUP1", "First Fiv