Define Class myForm2 As myForm #Define That Thisform.TextBox1 PROCEDURE Click() #If .f. LOCAL That As TextBox LOCAL TextBox1 As TextBox #Endif * type . after That: That * type . after TextBox1: Thisform. TextBox1 ENDPROC EndDefine Define Class myForm As Form PROCEDURE Init() Thisform.AddObject("TextBox1","TextBox") ENDPROC EndDefineEither you shorten A.B (in this case thisfrom.textbox1) with a deifinition of "that"