Private prev_pics(6) As PictureBox 'Array für 6 pictureboxen
 
 
    Private Sub initialize()
        prev_pics(1) = prev_1
        prev_pics(2) = prev_2
        prev_pics(3) = prev_3
        prev_pics(4) = prev_4
        prev_pics(5) = prev_5
        prev_pics(6) = prev_6
    End Sub
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        Dim j As Integer
        Dim sFIle As String
 
        For j = 1 To 6
            sFIle = Application.StartupPath & "\1.jpg"
            prev_pics(j).Image = Image.FromFile(sFIle)
        Next
    End Sub
End Class