>>BINDEVENT(_vfp,"ActiveForm",o,"HandleEvent") >>
>o=CREATEOBJECT("TestBind") >o1=CREATEOBJECT("form") >o1.Name = "FirstForm" >o1.Caption = "First" >o1.Show() > >o2=CREATEOBJECT("Form") >o2.Name = "SecondForm" >o2.Caption = "Second" >o2.show() > >FOR EACH oform IN _screen.Forms > BINDEVENT(m.oform,"Activate",o,"HandleEvent") >NEXT >