Dim x1, y1, r As Single
Private Sub Form_Load()
x1 = 5000
y1 = 5000
r = 100
Picture1.Circle (x1, y1), r
End Sub

Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
r = r + 50
Picture1.Circle (x1, y1), r
End Sub

猜测，
双击时，触发了 双击事件，也就只会产生一次 鼠标按下 的事件。

测试过了，双击时，第二次不会再产生 鼠标按下 事件。可能是防止冲突

MouseDown事件是鼠标按下时触发的事件，MouseUp事件是鼠标抬起时触发的事件
测试了一下，在MouseDown事件中双击的确只发生一次事件，而在MouseUp事件中双击却发生二次事件。（可以根据触发次数得知）
 风吹过b 说的对，可能是防止冲突，但又不理解为什么在MouseUp事件中双击却发生二次事件？
的确有点不理解了！！希望并期盼高手解答！！