Private Sub Command1_Click()
     Static Counter As Integer       '定义静态变量来储存计数
   
   Couner = Counter + 1              '每按一下，计数值加1
   Label1.Caption = Counter          '标签上显示计数结果
End Sub
为什么就记不了数呢

小伙，你再仔细看一下   Couner = Counter + 1     Couner和Counter是一样的嘛  低级错误
还有就是变量没赋初值

Dim Counter As Integer
Private Sub Command1_Click()
Counter = Counter + 1
Label1.Caption = Counter
End Sub
 
Private Sub Form_Load()
Counter = 0
End Sub

还有以后提问最好不要悬赏0分   那样很多人都不会回答的（劳动需要报酬）

哦，知道了，谢谢。
我还是新手，谢谢帮忙