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

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

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

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