Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles Button2.Click
        For i = 1 To 50
            Dim ptb As New PictureBox
            ptb.Size = New Size(120, 80)
            ptb.Location = New Drawing.Point(i * 122, 1)
            ptb.SizeMode = PictureBoxSizeMode.StretchImage
            ptb.Image = OpenImage("D:\Eigene Dateien\Eigene Bilder\Spike" & _
              "Neu\DSC00239.JPG")
            Bildlaufleiste.Controls.Add(ptb)
 
        Next i
    End Sub
 
    Public Function OpenImage(ByVal FileName As String) As Image
        Dim sr As New System.IO.StreamReader(FileName)
        Try
            Return (Image.FromStream(sr.BaseStream))
        Catch ex As Exception
            MsgBox(ex.ToString)
        Finally
            If Not sr Is Nothing Then
                sr.Close()
                sr = Nothing
            End If
        End Try
    End Function