gridx.vcx property

selamlar;
gridx.vcx kullanıyorum bu kodun her form açılışında çalışmasını istiyorum. classs da  hangi property i kullanabilirim.

Lparameters LcgiridAdi,PARAM2,PARAM3,PARAM4
If !Empty(LcgiridAdi)
    Local Lcgrid,currrow
    Lcgrid="Thisform."+LcgiridAdi
    currrow=1
    Lcfile=&Lcgrid..RecordSource
    Lcsonno=Lcgrid+".ColumnCount"
    Select &Lcfile
    Scan
        currrow=currrow+1
        For i=1 To &Lcsonno
            Lckolon=Lcgrid+".Columns["+Trans(m.i)+"].ControlSource"
            cval=&Lckolon
            Lcara=&cval
            Do Case
            Case Vartype(Lcara)='N'
                Lcsonuc=Lcgrid+".Columns["+Trans(m.i)+"].InputMask"
                Lcsonuc = Lcsonuc + "='99,999,999.99'"
                &Lcsonuc
                Lcsonuc1=Lcgrid+".Columns["+Trans(m.i)+"].Format"
                Lcsonuc1 = Lcsonuc1 + "='99,999,999.99'"
                &Lcsonuc1
                Lcsonuc3=Lcgrid+".Columns["+Trans(m.i)+"].Alignment"
                Lcsonuc3 = Lcsonuc3 + "=1"
                &Lcsonuc3
            Endcase
        Endfor
    Endscan
Endif