Public Class Form1
 
    Dim Pfad As String = "d:\winter\winterbilder\"
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
 
        If tx1.Text = "1" Then
            Laden()
        End If
 
    End Sub
 
    Private Sub Laden()
        Dim i As Integer
        Dim pb As PictureBox
        Dim tb As TextBox
 
        For i = 1 To 6
 
            pb = Me.Controls("PictureBox" & i)
            tb = Me.Controls("TextBox" & i)
            pb.Image = Image.FromFile(Pfad & tb.Text)
 
        Next
    End Sub
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
 
        Dim tb As TextBox
 
        Dim i As Integer
 
        For i = 1 To 6
 
            tb = Me.Controls("TextBox" & i)
            tb.Text = "image0000" & i & ".jpg"
 
        Next
 
    End Sub
End Class

EALA FREYA FRESENA