在vb中IF语句里面用command click，怎么用阿？

定义一个模块级变量：
DIM ZXC AS STRING
Private Sub Command1_Click()
ZXC="已单击"
'这个变量值就是检查Command1是否已经单击过
.............
'单击事件的其他代码
End Sub

在需要检查Command1是否已经单击的地方加下面代码：
IF ZXC ="已单击" THEN
a=a+2
ZXC="" '如果需要再次单击后才能执行，加上这一句
END IF

Dim a%

Private Sub Command1_Click()
a = a + 2
End Sub

dim a as integer

Private Sub Command1_Click()
a = a + 2
End Sub
Private Sub Command2_Click()
a = a + 3
End Sub

先制作一个控件数组然后得到下面的事件
Private Sub Command1_Click(Index As Integer)

if index=1 then '判断第几个按扭
a=a+1
else
a=a+2
end if

End Sub
也可能用
SELECT CASE INDEX
case
………
end select
之类的条件语句