Private Sub Form_Resize()

On Error GoTo GestioneErrore:

If Me.Height > 2500 Then
Me.FlexGrid.Height = Me.Height - 1700
Me.FlexGrid.Width = Me.Width - 450
Me.Label1.Left = Me.Width / 3
End If


questa provedura mette la label al centro quando si ridimensiona il form usalo per te-