Public oForm
oForm = Createobject('myForm')
oForm.Show

Define Class myForm As Form
  DataSession = 2
  Add Object myGrid As Grid
  Procedure Load
    Use (_samples+'data\customer')
  Endproc
  Procedure myGrid.BeforeRowColChange
    Lparameters nColIndex
    If This.RowColChange = 1
      Nodefault
    Endif
  Endproc
Enddefine