Class: | tsbaseform |
*-- 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()