Public Class frmPictures
    Dim pb() As PictureBox
    Dim pbSource As PictureBox
    Private Sub frmPictures_Load(ByVal sender As System.Object, _
    ByVal e As System.EventArgs) Handles MyBase.Load
        ReDim pb(4)
        For i As Integer = 0 To 4
            pb(i) = New PictureBox
            pb(i).Width = 30 : pb(i).Height = 30
            pb(i).Left = i * 32
            If i Mod 2 = 0 Then
            pb(i).Load("Bilddatei")
            pb(i).SizeMode = PictureBoxSizeMode.StretchImage
 
            AddHandler pb(i).MouseDoubleClick, _
            AddressOf frmPictures_MouseDoubleClick
            Me.Controls.Add(pb(i))
        Next i
    End Sub
 
    Private Sub frmPictures_MouseDoubleClick(ByVal sender As Object, _
    ByVal e As System.Windows.Forms.MouseEventArgs)
        If pbSource Is Nothing Then
            pbSource = CType(sender, PictureBox)
        Else
            Dim pbDest As PictureBox = CType(sender, PictureBox)
            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
            pbSource = Nothing
        End If
    End Sub
End Class