*-- Return .T. if the active form is of type "O" and its baseclass *-- is "Form". RETURN (TYPE("_screen.activeform") == "O" AND ; UPPER(_screen.ActiveForm.BaseClass) = "FORM")