如何实现鼠标每次点击一次,变量加一

如何实现鼠标每次点击一次,变量加一
题目是这样的:
点击窗体，在文本框内能够显示出点击的次数。当次数是奇数时，窗体背景色显示为红色，次数是偶数时背景色显示为蓝色。
每次都无法加一,大家帮我看看
Private Sub Form_Click()

Static Value As Integer
Value = 0
   Value = Value + 1
   If Value Mod 2 = 1 Then
     Form1.BackColor = RGB(255, 0, 0)
        Text2.Text = Value
   Else
     Form1.BackColor = RGB(0, 0, 255)
        Text2.Text = Value
   End If
   
   For i = 0 To 10
     DoEvents
   Next
   

   
   
End Sub



Private Sub Text2_Change()
  Form_Click
End Sub

声明静态或全局变量

把 Value = 0 去掉。

上面正解。

直接去掉就可以了吗??其他还需要加什么吗?

不行啊,运行以后界面都没有了

Value 声明为全局变量。把 Value ＝0 去掉

能直接写一下吗??楼上的,谢谢

你那样每次点击后都是value=0然后再加1，肯定不变色了

晕。

Dim iValue As Integer

Private Sub Form_Click()
  iValue = iValue + 1
  If (iValue Mod 2) = 1 Then
    Me.BackColor = RGB(255, 0, 0)
  Else
    Me.BackColor = RGB(0, 0, 255)
  End If
  Text1 = Trim(iValue)
End Sub

Private Sub Form_Load()
  iValue = 0
End Sub