的MouseUp是由DoubleClick

Question

打斷我試圖模仿一些動畫，當一個框點擊

Private Sub frameGo_MouseDown ... 
frameGo.Top = frameGo.Top - 2 

Private Sub frameGo_MouseUp ... 
frameGo.Top = frameGo.Top + 2 

但在doubleClik幀時間可持續往上走，而無需返回到原來的最高值。
我該如何預防？

Answer 1

取消DblClick動作事件

Private Sub frameGo_DblClick(ByVal Cancel As MSForms.ReturnBoolean) 
    Cancel = True 
End Sub