Hi Pablo.

>> hehe! Thanks, for hearing me. <<

Here is some code from my resizer's ResizeControls method that I use to resize my forms. It handles grids just fine:

LPARAMETERS toControl
LOCAL loPage, loControl, loColumn, lnColumnWidths[1], lnCol

#DEFINE WIDTHRATIO Thisform.Width / Thisform.nOriginalWidth
#DEFINE HEIGHTRATIO Thisform.Height / Thisform.nOriginalHeight

IF PEMSTATUS( toControl, 'Width', 5 )
  toControl.Width = toControl.nOriginalWidth * WIDTHRATIO
ENDIF	
IF PEMSTATUS( toControl, 'Height', 5 )
  toControl.Height = toControl.nOriginalHeight * HEIGHTRATIO
ENDIF
IF PEMSTATUS( toControl, 'Top', 5 )
  toControl.Top = toControl.nOriginalTop * HEIGHTRATIO 
ENDIF
IF PEMSTATUS( toControl, 'Left', 5 )
  toControl.Left = toControl.nOriginalLeft * WIDTHRATIO
ENDIF
*** Now resize the font of the control
IF PEMSTATUS( toControl, 'Fontsize', 5 )
  toControl.Fontsize = IIF( INT( toControl.nOriginalFontSize * WIDTHRATIO ) < 1, ;
			 1, INT( toControl.nOriginalFontSize * WIDTHRATIO ) )
ENDIF
DO CASE
  CASE UPPER( toControl.BaseClass ) = 'GRID'
    WITH toControl
	.RowHeight    = .nOriginalRowHeight * HEIGHTRATIO
	.HeaderHeight = .nOriginalHeaderHeight * HEIGHTRATIO
	FOR lnCol = 1 TO .ColumnCount
	  .Columns[ lnCol ].Width = .nOriginalColumnWidths[ lnCol ] * WIDTHRATIO
	ENDFOR
    ENDWITH	

HTH

Marcia