Private Sub picture1_MouseUp(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
Print "234324"
End Sub
没反应？？？？！！

Private Sub hc_MouseDown(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
hc(i).Drag vbBeginDrag
cx=x:cy=y
end
为甚么我一删掉MOUSEDOWN中的hc(i).Drag vbBeginDrag这句,就正常了，能响应MOUSEUP了，该怎么办啊

上面的HC就是PICTURE控件

应该是hc（index）哇