vb计时器一道题目

'在窗体上加入控件text1,timer1(interval=1000),然后复制下面代码，运行即可

Option Explicit

Private Sub Form_Load()
Timer1.Tag = Text1.Font.Size
End Sub

Private Sub Timer1_Timer()
On Error GoTo 1
Text1.Font.Size = Text1.Font.Size + 5
Exit Sub
1:
Text1.Font.Size = Val(Timer1.Tag)
End Sub

Option Explicit

Private Sub Timer1_Timer()
Static i As Integer
i = i + 5
Text1.FontSize = i

End Sub

Private Sub cmd_start_Click()
Timer1.Interval = Val(Text1.Text)
Timer1.Enabled = True
End Sub

Private Sub cmd_stop_Click()
Timer1.Enabled = False
End Sub

Private Sub Timer1_Timer()
Label1.FontSize = Label1.FontSize + 1
End Sub

计时器对象有一个timer对象，新建一个对象来实现该功能
Private Sub Form_Load()
Timer1.Interval = 1000
Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
'写入要实现代码，就是对字体进行放大的代码