(chkItalic.Value = Checked)
         grdThis.CellFont(grdThis.SelectedRow, grdThis.SelectedCol) = sFnt
      End With
   Else
      chkBold.Tag = ""
   End If
End Sub

''' &lt;summary&gt;
''' Toggles whether date column in the grid is visible.
''' &lt;/summary&gt;
Private Sub chkCol4_Click()
   grdThis.ColumnVisible("date") = (chkCol4.Value = Checked)
End Sub

''' &lt;summary&gt;
''' Toggles a custom colour set
''' &lt;/summary&gt;
Private Sub chkCustomColours_Click()

   ' Best to turn redraw off if settin