LOCAL lnRow,lnColumn IF !THIS.lMaximized THIS.lMaximized = .T. THIS.ZOrder(0) THIS.nOldLeft = THIS.Left THIS.nOldTop = THIS.Top THIS.nOldWidth = THIS.Width THIS.nOldHeight = THIS.Height IF UPPER(ALLTRIM(THIS.Parent.baseclass)) == 'PAGE' THIS.Top = THIS.Parent.Parent.Top THIS.Left = THIS.Parent.Parent.Left THIS.Width = THIS.Parent.Parent.Width THIS.Height = THIS.Parent.Parent.Height ELSE THIS.Top = THIS.Parent.Top THIS.Left = THIS.Parent.Left THIS.Width = THIS.Parent.Width THIS.Height = THIS.Parent.Height ENDIF ELSE THIS.lMaximized = .F. THIS.Left = THIS.nOldLeft THIS.Top = THIS.nOldTop THIS.Width = THIS.nOldWidth THIS.Height = THIS.nOldHeight ENDIFMarcia