Destroy Method
Class: tsbaseform
Expand/Collapse source code of procedure Destroy Source Code
*-- Make form disapper before doing anything else
thisform.Visible = .F.

IF TYPE('oApp') == "O"
  IF TYPE("this.ctoolbar") <> "U" AND ;
      !EMPTY(this.ctoolbar)
    *-- Remove the form's caption from the menu
    this.RemoveFromMenu()
    *-- Release the navigation toolbar
    oApp.ReleaseNavToolBar()
  ENDIF
ENDIF

*-- Save window's position to the INI file
thisform.SaveWindowPos()