vb.rar_MSFlexGrid1_VB MSFlexGrid1

Option Explicit

Private gridLeftRatio As Single, gridTopRatio As Single, gridWidthRatio As Single,

gridHeightRatio As Single

Private colWidthRatio() As Single, rowHeightRatio() As Single

Private Sub Form_Load()

Dim i As Long

With MSFlexGrid1

gridLeftRatio = .Left / Me.Width

gridTopRatio = .Top / Me.Height

Next i

For i = 0 To .Rows - 1

rowHeightRatio(i) = .RowHeight(i) / Me.Height

Next i

End With

End Sub

Private Sub Form_Resize()

Dim i As Long

With MSFlexGrid1

.Left = gridLeftRatio * Me.Width

For i = 0 To .Rows - 1

.RowHeight(i) = rowHeightRatio(i) * Me.Height

Next i

End With

End Sub