Public Class Form1
    Dim pb() As PictureBox
    Dim pbSource As PictureBox
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        ReDim pb(10)
        For i As Integer = 1 To 10
            pb(i) = New PictureBox
            pb(i).Width = 32 : pb(i).Height = 32
            pb(i).Location = New Point(CInt(My.Computer.FileSystem.ReadAllText( _
              "config\pb" & i & "\locationx.ini")), CInt( _
              My.Computer.FileSystem.ReadAllText("config\pb" & i & _
              "\locationy.ini")))
            pb(i).ImageLocation = "config\pb" & i & "\pbBild.bmp"
            pb(i).AllowDrop = True
            Me.Controls.Add(pb(i))
 
            AddHandler pb(i).MouseDown, AddressOf Pic_MouseDown
            AddHandler pb(i).MouseUp, AddressOf Pic_MouseUp
        Next i
    End Sub
 
End Class