Public Class frmPictures2
    Dim pb() As PictureBox
    Dim pbSource As PictureBox
 
    Private Sub frmPictures2_Load(ByVal sender As System.Object, _
                          ByVal e As System.EventArgs) Handles MyBase.Load
        Me.Width = 300 : Me.Height = 300
        ReDim pb(14)
        Dim pbc As New PictureBox, z As Integer = -1
        For k As Integer = 0 To 2
            For i As Integer = 0 To 4
                z += 1
                pb(z) = New PictureBox
                With pb(z)
                    .Width = 50 : .Height = 50 : .Left = i * 52
                    .Top = 10
                    If z > 4 Then .Top = 70
                    If z > 9 Then .Top = 130
                    .Load("<Bilddatei angeben>")                    
                    .SizeMode = PictureBoxSizeMode.StretchImage
 
                    AddHandler .MouseDown, AddressOf Pic_MouseDown
                    AddHandler .MouseUp, AddressOf Pic_MouseUp
                End With
                Me.Controls.Add(pb(z))
            Next i
        Next k
    End Sub
 
    Private Sub Pic_MouseDown(ByVal sender As Object, _
        ByVal e As System.Windows.Forms.MouseEventArgs)
        If e.Button = Windows.Forms.MouseButtons.Left Then
            pbSource = CType(sender, PictureBox)
        End If
    End Sub
 
    Private Sub Pic_MouseUp(ByVal sender As Object, _
        ByVal e As System.Windows.Forms.MouseEventArgs)
        If e.Button = Windows.Forms.MouseButtons.Left Then
            If pbSource Is Nothing Then Exit Sub
 
            Dim pbDest As PictureBox
            Dim x As Integer = pbSource.Left + e.X
            Dim y As Integer = pbSource.Top + e.Y
 
            Dim c As Control = Me.GetChildAtPoint _
            (New Drawing.Point(x, y), GetChildAtPointSkip.None)
            If c Is Nothing Then Exit Sub
            If Not TypeOf c Is PictureBox Then Exit Sub
            pbDest = CType(c, PictureBox)
            If ReferenceEquals(pbSource, pbDest) Then Exit Sub
 
            Dim l As Integer = pbSource.Left
            Dim t As Integer = pbSource.Top
            pbSource.Top = pbDest.Top
            pbSource.Left = pbDest.Left
            pbDest.Left = l : pbDest.Top = t            
        End If
    End Sub
End Class