VB中有关timer的用法

比如一个label中有数字，第一秒显示1，第二秒显示2这样 的，怎么编写？
又比如text中字体一秒大一倍，再一秒又大一倍。。。
还有类似要用到秒数的，有没有一个套用语句？

Dim i As Long
Private Sub Form_Load()
Timer1.Interval = 1000 '间隔一秒
End Sub

Private Sub Timer1_Timer()
i = i + 1
Label1.Caption = i
Text1.FontSize = Text1.FontSize * 2
If Text1.FontSize * 2 >= 2160 Then Text1.FontSize = 1
End Sub

用 static 声明静态变量 即可 private sub form_load() timer1.interval = 1000 end sub private sub timer1_timer() static i as integer i = i + 1 me.caption = i end sub