Labels and Fonts

Why won't this code work?

VB Code:

Private Sub TmrNoms_Timer()
    If MediaPlayer1.PlayState = mpStopped Then
        If Etape = 1 Then
            LblCree.Visible = True
            LblCree.Font.Size = LblCree.Font.Size - 2
            If LblCree.Font.Size <= 10 Then
                Etape = 2
            End If
        ElseIf Etape = 2 Then
            LblCree.Left = LblCree.Left - 50
            LblCree.Font.Size = LblCree.Font.Size + 3
            If LblCree.Font.Size >= 40 Then
                Etape = 3
            End If
        ElseIf Etape = 3 Then
            LblAlex.Visible = True
            LblAlex.Font.Size = LblAlex.Font.Size - 2
            If LblAlex.Font.Size <= 10 Then
                Etape = 4
            End If
        ElseIf Etape = 4 Then
            LblAlex.Font.Size = LblAlex.Font.Size + 3
            LblAlex.Left = LblAlex.Left - 50
            If LblAlex.Font.Size >= 40 Then
                Etape = 5
            End If
        End If
    End If
End Sub

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