Private Sub Form_Resize()
On Error Resume Next
Dim lLeft As Long, lTop As Long
Dim lWidth As Long, lHeight As Long
' вычисление lLeft, lTop, lWidth, lHeight
' на основе значений Width и Height формы...
' твой код...
' ...
'перемещение грида
Grid1.Move lLeft, lTop, lWidth, lHeight
End Sub
Сейчас этот форум просматривают: Majestic-12 [Bot] и гости: 39