Private Sub Form_Resize () MsFlexGrid.Width = Ancho_Deseado 'o Me.ScaleWidth MsFlexGrid.Height = Alto_Deseado End Sub