Dim x As String
    Private Sub PB()
        Dim p As New Panel
        Dim pb As New PictureBox
        Dim l As New Label
        p.Size = New Size(100, 150)
        p.Location = New Point(x, 0)
 
        l.Text = TextBox1.Text
        l.Location = New Point(50, 120)
        pb.Size = New Size(100, 100)
        pb.Location = New Point(0, 0)
        pb.Image = Image.FromFile("C:\Users\Jan-Philip\Pictures\RCT3\1.jpg")
        p.Controls.Add(l)
        p.Controls.Add(pb)
        Panel1.Controls.Add(p)
        x = x + 120
        AddHandler p.DoubleClick, AddressOf dynpan_click
 
 
    End Sub
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        PB()
    End Sub
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        Panel1.AutoScroll = True
    End Sub
    Private Sub dynpan_click()
 
    End Sub