cIcon.hDC, 0, 0
      picIcon.Refresh
   End If
End Sub

Private Sub chkAllowGrouping_Click()
   hdrColumns.AllowGrouping = (chkAllowGrouping.Value = Checked)
   cboGroupOrder.Enabled = hdrColumns.AllowGrouping
End Sub

Private Sub chkButtons_Click()
   hdrColumns.HasButtons = (chkButtons.Value = Checked)
End Sub

Private Sub chkDragReorder_Click()
   hdrColumns.DragReOrderColumns = (chkDragReorder.Value = Checked)
End Sub

Private Sub chkFilterBar_Click()
Dim lHeight As Long
   hdrColumns.FilterBar = (chkF