 
End Sub

''' &lt;summary&gt;
''' Toggles whether cells go immediately into edit mode
''' &lt;/summary&gt;
Private Sub chkSingleClickEdit_Click()
   grdThis.SingleClickEdit = (chkSingleClickEdit.Value = Checked)
End Sub

''' &lt;summary&gt;
''' Toggles whether the first row in the grid is set as the
''' split row, i.e. it shows regardless of where the grid
''' has been scrolled to.
''' &lt;/summary&gt;
Private Sub chkSplitRow_Click()
   grdThis.SplitRow = IIf(chkSplitRow.Value = Checked, 1, 0)
End Sub

Pri