Выравнивание текста основной формы в форме vb.net

Question

Я хочу выровнять текст основной формы в центре строки заголовка. Я понятия не имею, как я начну это. Я также «искал» эту проблему и не нашел решения.

Answer 1

Это работает для меня предостережения упоминалось в моем замечании ссылке:

Public Class Form1 
Private Sub Form1_Load(sender As Object, e As System.EventArgs) Handles Me.Load 
    CenterMe() 
End Sub 
Private Sub Form1_Resize(sender As Object, e As System.EventArgs) Handles Me.Resize 
    CenterMe() 
End Sub 
Private Sub CenterMe() 
    Dim g As Graphics = Me.CreateGraphics() 
    Dim startingPoint As Double = (Me.Width/2) - (g.MeasureString(Me.Text.Trim, Me.Font).Width/2) 
    Dim widthOfASpace As Double = g.MeasureString(" ", Me.Font).Width 
    Dim tmp As String = " " 
    Dim tmpWidth As Double = 0 
    Do 
     tmp += " " 
     tmpWidth += widthOfASpace 
    Loop While (tmpWidth + widthOfASpace) < startingPoint 

    Me.Text = tmp & Me.Text.Trim & tmp 

    Me.Refresh() 
End Sub 
End Class