Dim M As Boolean = False
Dim x, y As Integer
Private Sub PictureBox_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox3.MouseDown, PictureBox2.MouseDown, PictureBox4.MouseDown
M = True
sender.BringToFront()
x = e.X : y = e.Y
End Sub
Private Sub PictureBox_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox3.MouseMove, PictureBox2.MouseMove, PictureBox4.MouseMove
If M Then
sender.location = New Point(sender.location.x + e.X - x, sender.location.y + e.Y - y)
End If
End Sub
Private Sub PictureBox_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox3.MouseUp, PictureBox2.MouseUp, PictureBox4.MouseUp
M = False
End SubDim x, y As Integer
Dim wid As Integer = 0
Private Sub PictureBox_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox3.MouseDown, PictureBox2.MouseDown, PictureBox4.MouseDown
Clipboard.SetImage(CType(sender, PictureBox).Image)
x = e.X : y = e.Y
Cursor = Cursors.NoMove2D
End Sub
Private Sub PictureBox_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox3.MouseUp, PictureBox2.MouseUp, PictureBox4.MouseUp
Dim gr As Graphics = PictureBox1.CreateGraphics
If sender Is PictureBox2 Then
gr.DrawImage(Clipboard.GetImage, wid + e.X, e.Y - 12, 40, 40)
ElseIf sender Is PictureBox3 Then
gr.DrawImage(Clipboard.GetImage, wid + e.X, e.Y + PictureBox3.Location.Y - 24, 40, 40)
ElseIf sender Is PictureBox4 Then
gr.DrawImage(Clipboard.GetImage, wid + e.X, e.Y + PictureBox4.Location.Y - 24, 40, 40)
End If
Cursor = Cursors.Default
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
wid = PictureBox1.Width
End Sub