Не получается сместить надпись на центр развёрнутого экрана - VB

Формулировка задачи:

Почему не получается сместить надпись на центр развёрнутого экрана?

Private Sub Form_Load()
  LabelEx Label1, "|H/2|=Гѓ\4|- b"
End Sub
Private Sub Form_Resize()
    Me.WindowState = vbMaximized
End Sub
Sub LabelEx(Label, S$)
Dim I&, J&, C As String * 1
Set Me.Font = Label(0).Font
Label(0).Font = "arial"
Label(0).FontSize = 36
Label(0).BackStyle = 0
Label(0).Caption = ""
Label(0).Width = 0
Label(0).Height = Me.TextHeight(Label(0).Caption)
For I = 1 To Len(S)
  C = Mid$(S, I, 1)
  Select Case C
  Case "|", "\", "/"
    J = J + 1
    Load Label(J)
    With Label(J)
      .Caption = ""
      .Visible = True
      '.Left = Label(J - 1).Left + Label(J - 1).Width
      '*****************************************
      .Left = ScaleWidth / 2 + Label(J - 1).Left + Label(J - 1).Width
      Select Case C
        Case "|" 'Г*Г®Г°Г¬Г*Г«ГјГ*Г»Г© ГІГҐГЄГ±ГІ
         '.Top = Label(0).Top
          .Top = ScaleHeight / 2 + Label(0).Top
          .FontSize = Label(0).FontSize
        Case "/" 'ГЇГ®Г¤Г±ГІГ°Г®Г·Г*Г»Г©
          '.Top = Label(0).Top + Label(0).Height / 2
          .Top = ScaleHeight / 2 + Label(0).Top + Label(0).Height / 2
          .FontSize = Label(0).FontSize * 2 / 3
        Case "\" 'Г*Г*Г¤Г±ГІГ°Г®Г·Г*Г»Г©
          '.Top = Label(0).Top - Label(0).Height / 4
          .Top = ScaleHeight / 2 + Label(0).Top - Label(0).Height / 4
          .FontSize = Label(0).FontSize * 2 / 3
      End Select
     End With
  Case Else
    With Label(J)
      Set Me.Font = Label(J).Font
     .Caption = .Caption + C
     .Width = Me.TextWidth(.Caption)
     .Height = Me.TextHeight(.Caption)
    End With
  End Select
Next I
End Sub

Решение задачи: «Не получается сместить надпись на центр развёрнутого экрана»

textual
                            Листинг программы 
                        

                            Private Sub Form_Activate()
    'Г®ГІГЄГ°Г»ГўГ*ГҐГ¬ Г®ГЄГ*Г® Г*Г* ГўГҐГ±Гј ГЅГЄГ°Г*Г*
    Me.WindowState = vbMaximized
    '!!!!!!!!!!!!!!!!!!!
    Label1(0).ZOrder '!!
    '!!!!!!!!!!!!!!!!!!!
    LabelEx Label1, "H/2|=Гѓ\4|- b", 1
    LabelEx Label2, "H/2|=Гѓ\4|- b", 2
End Sub
                        