>>PUBLIC oform1
>>
>>oform1=NEWOBJECT("form1")
>>oform1.Show
>>RETURN
>>
>>
>>    **************************************************
>>*-- Form:         form1 (c:\program files\microsoft visual foxpro 9\test.scx)
>>*-- ParentClass:  form
>>*-- BaseClass:    form
>>*-- Time Stamp:   01/28/07 09:20:01 PM
>>*
>>DEFINE CLASS form1 AS form
>>
>>
>>    Top = 6
>>    Left = 89
>>    DoCreate = .T.
>>    Caption = "Form1"
>>    Name = "Form1"
>>
>>
>>    ADD OBJECT grid1 AS grid WITH ;
>>        Height = 214, ;
>>        Left = 12, ;
>>        Top = 13, ;
>>        Width = 326, ;
>>        Name = "Grid1"
>>
>>
>>    PROCEDURE Load
>>        CREATE CURSOR crsTest (Fld1 Int, Fld2 C(20))
>>        FOR asd = 1 TO 20
>>            INSERT INTO crsTest VALUES (asd, REPLICATE([A],asd))
>>        NEXT
>>        GO TOP
>>    ENDPROC
>>
>>
>>    PROCEDURE Init
>>        thisform.Grid1.Column2.DynamicAlignment = [IIF(Fld1%2==0,1,0)]
>>        thisform.Grid1.refresh()
>>    ENDPROC
>>
>>
>>ENDDEFINE
>>*
>>*-- EndDefine: form1
>>**************************************************
>>