新手 vb中的MouseUp事件请教

部分程序：（用鼠标左键拖动图片）
Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If Button = 1 Then Picture1.Drag 1 '如果是左键就拖动
    OffsetX = X
    OffsetY = Y

End Sub

Private Sub Picture1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Print 1234
    Picture1.Drag 2

End Sub

为了验证MouseUp事件是否运行我加入了输出1234的这句，运行过程中发现，当我在图片上点击右键然后抬起右键的时候会显示1234（不论我的鼠标移到何处都可以）
但如果我用左键点击拖动图片后，图片会来到拖动后的位置，但不会显示1234

请问在鼠标拖动后当我抬起左键的时候MouseUp为什么就不运行了。  新手请教 劳烦告知

---

友情帮顶0分贴。

为什么您的帖子没有人回答呢？其实问题不难的，请不要吝惜一点分数。
友情提示：
注册账户200分
结贴还一半
首次发贴不能给分，但是再发一贴就能给分。
问题请描述清楚。
多多google和baidu。
一窍不通先补基础
复杂问题多给分，完美解决得花钱。
重金之下有勇夫。
无分无钱无真相，高分重金齐帮忙。

祝你得到满意的答案。

---

引用

友情帮顶0分贴。

为什么您的帖子没有人回答呢？其实问题不难的，请不要吝惜一点分数。
友情提示：
注册账户200分
结贴还一半
首次发贴不能给分，但