Dim?A?As?Integer
Dim?B?As?Integer
Private?Sub?Command1_Click()
A?=?A?+?1
End?Sub
Private?Sub?Command2_Click()
B?=?B?+?1
Private?Sub?Command3_Click()
Label1.Caption?=?"A按鈕按下次數:"?&?A?&?"?B按鈕按下次數:"?&?B
'初始化A、B以便於下次統計
A?=?0:?B?=?0
效果: