>LOCAL lnRow,lnColumn >WITH This > IF !.lMaximized > .lMaximized = .T. > .ZOrder(0) > .nOldLeft = .Left > .nOldTop = .Top > .nOldWidth = .Width > .nOldHeight = .Height > IF UPPER(ALLTRIM(.Parent.baseclass)) == 'COLUMN' > .nOldRowHeight = .Parent.Parent.RowHeight > lnRow = .Parent.Parent.ActiveRow > lnColumn = .Parent.Parent.ActiveColumn > .Parent.Parent.RowHeight = .Parent.Parent.Height > ENDIF > IF UPPER(ALLTRIM(.Parent.baseclass)) == 'COLUMN' OR ; > UPPER(ALLTRIM(.Parent.baseclass)) == 'PAGE' > .Top = .Parent.Parent.Top > .Left = .Parent.Parent.Left > .Width = .Parent.Parent.Width > .Height = .Parent.Parent.Height > ELSE > .Top = .Parent.Top > .Left = .Parent.Left > .Width = .Parent.Width > .Height = .Parent.Height > ENDIF > IF UPPER(ALLTRIM(.Parent.baseclass)) == 'COLUMN' > .Parent.Parent.ActivateCell(lnRow, lnColumn) > DO WHILE .Parent.Parent.RelativeRow <> 1 > .Parent.Parent.DoScroll(1) &&scoll down > ENDDO > ENDIF > ELSE > .lMaximized = .F. > .Left = .nOldLeft > .Top = .nOldTop > .Width = .nOldWidth > .Height = .nOldHeight > IF UPPER(ALLTRIM(.Parent.baseclass)) == 'COLUMN' > .Parent.Parent.RowHeight = .nOldRowHeight > ENDIF > ENDIF >ENDWITH >>