判断点击即可。代码如下：
Private Sub Command1_Click()
Select Case Label1.Caption
Case ""
Label1.Caption = "点击了一次"
Case "点击了一次"
Label1.Caption = "第二次点击"
Case "第二次点击"
Label1.Caption = "一共点击了三次"
Case Else
End Select
End Sub
Private Sub Form_Load()
Me.Label1.Caption = ""
Me.Command1.Caption = "点击"
End Sub
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024