Why won't this code work?

VB Code:
  1. Private Sub TmrNoms_Timer()

  2.     If MediaPlayer1.PlayState = mpStopped Then

  3.         If Etape = 1 Then

  4.             LblCree.Visible = True

  5.             LblCree.Font.Size = LblCree.Font.Size - 2

  6.             If LblCree.Font.Size <= 10 Then

  7.                 Etape = 2

  8.             End If

  9.         ElseIf Etape = 2 Then

  10.             LblCree.Left = LblCree.Left - 50

  11.             LblCree.Font.Size = LblCree.Font.Size + 3

  12.             If LblCree.Font.Size >= 40 Then

  13.                 Etape = 3

  14.             End If

  15.         ElseIf Etape = 3 Then

  16.             LblAlex.Visible = True

  17.             LblAlex.Font.Size = LblAlex.Font.Size - 2

  18.             If LblAlex.Font.Size <= 10 Then

  19.                 Etape = 4

  20.             End If

  21.         ElseIf Etape = 4 Then

  22.             LblAlex.Font.Size = LblAlex.Font.Size + 3

  23.             LblAlex.Left = LblAlex.Left - 50

  24.             If LblAlex.Font.Size >= 40 Then

  25.                 Etape = 5

  26.             End If

  27.         End If

  28.     End If

  29. End Sub

When the second label is supposed to appear it doesnt... lblcree stops growing but just keeps moving to the left.. how come?