PUBLIC oform1 oform1=NEWOBJECT("form1") oform1.Show RETURN DEFINE CLASS form1 AS form Top = 0 Left = 0 Height = 113 Width = 290 DoCreate = .T. Caption = "Form1" Name = "Form1" ADD OBJECT text1 AS textbox WITH ; Height = 24, ; Left = 12, ; Top = 36, ; Width = 145, ; Name = "Text1" ADD OBJECT label1 AS label WITH ; AutoSize = .T., ; Caption = "Fox", ; Height = 17, ; Left = 24, ; Top = 12, ; Width = 21, ; Name = "Label1" ADD OBJECT label2 AS label WITH ; AutoSize = .T., ; Caption = "Pro", ; Height = 17, ; Left = 46, ; Top = 12, ; Width = 21, ; ForeColor = RGB(255,0,0), ; Name = "Label2" PROCEDURE text1.InteractiveChange THisForm.label1.Caption = ALLTRIM(This.value) ThisForm.label2.Left = THisForm.label1.Left+THisForm.label1.Width ENDPROC ENDDEFINE * *-- EndDefine: form1 **************************************************