Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
     System.EventArgs) Handles MyBase.Load
        tb1.Text = "Cat1.jpg"
        tb2.Text = "CAT22.jpg"
        tb3.Text = "katze von tiny.jpg"
        tb4.Text = "dusty2345.jpg"
        tb5.Text = "Felix 1012.jpg"
        tb6.Text = "kater.jpg"
        tb7.Text = "CAT2.jpg"
        tb8.Text = "Cat1.jpg"
        tb9.Text = "katze2.jpg"
        tb10.Text = "Clarence 101.jpg"
        tb11.Text = "dusty2345.jpg"
        tb12.Text = "schnubbel236.jpg"
        tb13.Text = "Quincy 102.jpg"
        tb14.Text = "oliver.jpg"
 
    End Sub
 
 
 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
   System.EventArgs) Handles Button1.Click
 
     tx1.Text = "1"
        Laden()
  Private Sub Laden()
 
End Sub
 
  Private Sub Laden()
 
        If tx1.Text = "1" Then
            PictureBox1.Image = Image.FromFile(tb1.Text)
            PictureBox2.Image = Image.FromFile(tb2.Text)
            PictureBox3.Image = Image.FromFile(tb3.Text)
            PictureBox4.Image = Image.FromFile(tb4.Text)
            PictureBox5.Image = Image.FromFile(tb5.Text)
            PictureBox6.Image = Image.FromFile(tb6.Text)
            PictureBox7.Image = Image.FromFile(tb7.Text)
            PictureBox8.Image = Image.FromFile(tb8.Text)
            PictureBox9.Image = Image.FromFile(tb9.Text)
            PictureBox10.Image = Image.FromFile(tb10.Text)
            PictureBox11.Image = Image.FromFile(tb11.Text)
            PictureBox12.Image = Image.FromFile(tb12.Text)
            PictureBox13.Image = Image.FromFile(tb13.Text)
            PictureBox14.Image = Image.FromFile(tb14.Text)
        End If
 
    End Sub

Hobby Programmierer u. "Komponist"
https://www.youtube.com/channel/UCRuq2bapBxHV9ZA1tPI223g