怎么提高PICTUREBOX的单击速度

如何提高PICTUREBOX的单击速度？
大家可以试一下以下的代码，分别放一个PICTUREBOX和一个COMMAND，用默认名就可以啦，然后把代码放上。

Private nCount As Long
Private oCount As Long
Private Declare Function GetTickCount Lib "kernel32" () As Long

Private Sub Command1_Click()
nCount = GetTickCount
Me.Caption = nCount - oCount
oCount = nCount
End Sub

Private Sub Picture1_Click()
nCount = GetTickCount
Me.Caption = nCount - oCount
oCount = nCount
End Sub

大家用自己最快的速度分别点击COMMAND和PICTUREBOX时，有没有发现点击COMMAND时，在标题栏的数字是否一定小于点击PICTUREBOX的数字呢？我估计是因为有双击这一事件的原因，但我要如何修改才能让PICTUREBOX的点击速度和COMMAND一样快呢？谢谢！！！
------解决方案--------------------

这个我还真无法解决。
不知道HOOK鼠标消息行不。