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 EnddefineCetin