  Else
      grdThis.DrawFocusRectangle = chkDrawFocusRect.Value
      grdThis.HighlightForeColor = vbHighlightText
   End If
End Sub

''' &lt;summary&gt;
''' Toggles whether the selected cell's text is bold or not
''' &lt;/summary&gt;
Private Sub chkBold_Click()
Dim sFnt As New StdFont
   If (chkBold.Tag = "") Then
      With grdThis.CellFont(grdThis.SelectedRow, grdThis.SelectedCol)
         sFnt.Name = .Name
         sFnt.Size = .Size
         sFnt.Bold = (chkBold.Value = Checked)
         sFnt.Italic = 