IF ISNULL(This.oStatusBar) This.oStatusBar = NEWOBJECT("tbrStatusBar", "Controls") BINDEVENT(This, "Resize", This.oStatusBar, "ResizeStatus", 1) IF This.oStatusBar.DockPosition <> 3 This.oStatusBar.Dock(3) ENDIF This.oStatusBar.Show() ENDIF