VB图片随鼠标运动

'添加个image控件，里面放个图片，把下面代码复制进去就行了
Private Sub Form_Load()
Image1.Enabled = 0
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Image1.Left = X - Image1.Width / 2
Image1.Top = Y - Image1.Height / 2
End Sub

下面代码直接贴进去
Dim rx, ry As Integer

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
rx = X
ry = Y
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Image1.Left = Image1.Left + (X - rx)
Image1.Top = Image1.Top + (Y - ry)
End Sub