如何测试到用户点击了两下COMMAND控件！

Question

Private Sub Command1_Click()
Command1.Enable=False
End Sub

Answer 1

Private Sub Command1_Click()
    
    Static iNu As Integer
    
    iNu = iNu + 1
    
    If iNu = 2 Then
        MsgBox "你已经点了2次了"
        Command1.Enabled = False
    End If
    
    
End Sub

Answer 2

Private Sub Command1_Click()
    if command1.tag= "" then 
        command1.tag=1
    else
        command1.tag=command1.tag+1
    end if
    if command1.tag >1 Then  MsgBox "我已经知道了，你TMD烦不烦，已经点了N次了！（N=" & commang.tag & "）"
End Sub这就叫做“人工智能”！