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
 
 sPath = Application.StartupPath
 
                For j = 1 To 6
                    sFIle = sPath & "\data\pictures\" & j & ".jpg"
                    'prüfen ob datei existiert
                    If System.IO.File.Exists(sFIle) = True Then
                        prev_pics(j).Image = Image.FromFile(sFIle)
                    End If
                Next