VB Code:
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.
VB Code:
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