Resizing MSFlexGrid Control ... not the rows/columns

[Aaron Young]

Why not resize the Grid as the containing Form is resized, i.e.

Private Sub Form_Resize()
    MSFlexGrid1.Move 0, 0, ScaleWidth, ScaleHeight
End Sub

If the control is on the form with other controls, then just make it stretch with the Form, i.e.

Private tFormWidth As Single, tFormHeight As Single
Private tGridWidth As Single, tGridHeight As Single
 
Private Sub Form_Load()
    tFormWidth = ScaleWidth
    tFormHeight = ScaleHeight
    tGridWidth = MSFlexGrid1.Width
    tGridHeight = MSFlexGrid1.Height
End Sub
 
Private Sub Form_Resize()
    ' Trap error caused if Width/Height are invalid
    On Error Resume Next
    MSFlexGrid1.Width = tGridWidth + (ScaleWidth - tFormWidth)
    MSFlexGrid1.Height = tGridHeight + (ScaleHeight - tFormHeight)
End Sub

[ProgAnimal]

Thank you! That was simple enough. I do have other controls on the form; I will give it a try.

Thanks again!