Dim bilder As New bilder
bilder.create(dateiname, posX, posY)

Dim pics(10) as picturebox
    Function create(ByVal file as string, byval x as integer, byval y as _
      integer)
 
                    bilder(i) = New PictureBox
                    bilder(i).Name = file & i
                    bilder(i).Location = New Point(x, y)
                    bilder(i).Image = Image.FromFile(file & ".jpg")
                    Form1.Controls.Add(bilder(i))
    end function