If Type("_VFP.ActiveForm")=="O" ThisForm.oCallingForm=_VFP.ActiveForm EndifSimon
>if type('_screen.ActiveForm.name')='C' && There is another active form > this.CallingFormName=upper(_screen.ActiveForm.name) && Called from some other form >else > this.CallingFormName='' >endif>