字体的缩放 vb

Private Sub Timer1_Timer()
If Label1.FontSize < 100 Then
Label1.FontSize = Label1.FontSize * 1.2
Else
Label1.FontSize = 12
End If
End Sub
这是我写的代码，程序运行后，字体先由小变大，然后回到12磅，接着又开始变大，怎样能让字体变成100磅后，缩成12磅不动呢？
请指点！！

相关了解……