FormIsObject Function
Expand/Collapse source code of procedure FormIsObject Source Code
  *-- 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")