Question

VB做计时器

用VB做一个计时器，用一个Label 显示，一秒一秒的加
如 1 2 3 4 5
每一秒加1
求代码

Answer 1

Private Sub Form_Load()
Timer1.Interval = 1000
Label1.Caption = 1
End Sub

Private Sub Timer1_Timer()
Label1.Caption = Val(Label1.Caption) + 1
End Sub