vb 如果按钮控件被按两次则触发事件的编码怎么写？

Private Sub Command1_Click()
Static n As Integer
n = n + 1
If n = 2 Then call 事件名称
End Sub

Dim ClickF As Boolean

Private Sub Command1_Click()
If ClickF Then
MsgBox "第二次" & " " & ClickF
ClickF = Not ClickF
Else
MsgBox "第一次" & " " & ClickF
ClickF = Not ClickF
End If
End Sub