这样,用左键移动图片:
Private Sub PictureBox1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseMove
If e.Button = MouseButtons.Left Then
sender.Top = Me.Panel1.PointToClient(Me.Panel1.MousePosition).Y - t
sender.left = Me.Panel1.PointToClient(Me.Panel1.MousePosition).X - l
End If
End Sub
Dim t As Integer, l As Integer
Private Sub PictureBox1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseDown
t = Me.Panel1.PointToClient(Me.Panel1.MousePosition).Y - sender.Top
l = Me.Panel1.PointToClient(Me.Panel1.MousePosition).X - sender.left
End Sub