ary&gt;
Private Sub chkDrawFocusRect_Click()
   grdThis.DrawFocusRectangle = (chkDrawFocusRect.Value = Checked)
   grdThis.Draw
End Sub

''' &lt;summary&gt;
''' Toggles whether the grid is editable or not.
''' &lt;/summary&gt;
Private Sub chkEditable_Click()
   grdThis.Editable = (chkEditable = Checked)
   chkSingleClickEdit.Enabled = grdThis.Editable
End Sub

''' &lt;summary&gt;
''' Toggles whether the grid is enabled or not.
''' &lt;/summary&gt;
Private Sub chkEnabled_Click()
   grdThis.Enabled = (chkEnab