Private Sub Form_Click()
Print "Click"
End Sub

Private Sub Form_DblClick()
Print "DblClick"
End Sub
会两个都激发，不信试试

基本上是不可能的，在触发dbclick之前你已经触发了click

自己做个延时(有点傻 -_-d):
Timer1.Interval = 200'(经测试200很合适)
'////////////////
Private Sub Form_Click()
Timer1.Enabled = True
End Sub

Private Sub Form_DblClick()
Timer1.Enabled = False
Print "DblClick"
End Sub

Private Sub Timer1_Timer()
Print "Click"
Timer1.Enabled = False
End Sub

连这你也弄出来了啊？i 服了 you！