vb 计时器 使label隔一秒增加一

窗体上放一个label1标签控件和time1时钟控件，粘贴代码：
private sub form_load()
Timer1.Interval = 1000
end sub
private sub timer1_timer()
Label1 = Val(Label1.Caption) + 1
end sub

private sub form_load()
dim n as integer
timer1.interval=1000
end sub
private sub timer1_timer()
n=n+1
label1.caption=n
end sub

yiyiarrow 的问题出在变量n的声明，局部变量n在 form_load()中声明的，在timer1_timer()里是不能使用的．
橡皮树的博客　采用的方法，巧妙的避开了使用变量的问题．
我的代码是声明窗体级变量n
Option Explicit Private n As LongPrivate Sub Form_Load() Timer1.Interval = 1000 Label1.Caption = 0 End SubPrivate Sub Timer1_Timer() n = n + 1 Label1.Caption = n End Sub