也许很简单的一个if有关问题

也许很简单的一个if问题
设置一个按钮，我想第1次点击按钮的时候label1显示0，第2次点击显示800，第3次再是0，第4次是800，第5次是0，第6次是800……这样两个数来回变换
我写的代码却第一次点是0，再点也永远不会变了：
Private   Sub   Command1_Click()
If   ts   =   0   Then
Label1.Caption   =   0
ts   =   800
Else
Label1.Caption   =   800
ts   =   0
End   If
End   Sub

Private   Sub   Form_Load()
Dim   ts   As   Integer
ts   =   0
End   Sub

哪里错了啊？

[解决办法]
private ts as integer
Private Sub Command1_Click()
'或者
static ts as integer
If ts = 0 Then
Label1.Caption = 0
ts = 800
Else
Label1.Caption = 800
ts = 0
End If
End Sub

Private Sub Form_Load()
Dim ts As Integer
ts = 0
End Sub

[解决办法]
我把ts定義為全局才可以跑，可以實現阿。