Отцентровать объект на форме по событию Resize_формы

[muadib]

есть на форме TextBox. При изменении размеров окна происходит событие Form_Resize(), можно ли заставить TextBox расположится на середине формы.

[Chuvak]

что-то вроде того

Код: Выделить всё

Private Sub Form_Load()
  Text1_Center
End Sub

Private Sub Form_Resize()
  Text1_Center
End Sub

Private Sub Text1_Center()
  Text1.Top = Round(Form1.Height / 2 - Text1.Height / 2)
  Text1.Left = Round(Form1.Width / 2 - Text1.Width / 2)
End Sub


[RayShade]

Неправильно. Надо использовать ScaleWidth/ScaleHeight потому что именно они отражают реальный размер области формы.