VB中checkbox的value属性有三种状态，怎样使点击它时，三种状态循环？

Question

用一个timer
在checkbox的Click事件中,timer的enable=true
在timer的timer中，控制checkbox.value属性

Answer 1

自己在单击事件下代码private sub check1_click()
static i as long
select case i
  case 0 
    check1.value = 0
    i = i+1
  case 1 
    check1.value = 1
    i = i+1
  case 2 
    check1.value = 2
    i = 0
 end select
end sub    

Answer 2

Private Sub Check1_Click()
If Checl1.Value=2 then
    Check1.Value=0
else
    Check1.Value=Check1.Value+1
End If
End Sub