Public Class frmMain
    Dim Bilderliste As New List(Of String)(IO.Directory.GetFiles("C:\Dokumente" & _
      "und Einstellungen\Cath\Eigene Dateien\Eigene Bilder\testbilder\"))
    Dim StartPicIndex As Integer = 0
    Dim EndPicIndex As Integer = Bilderliste.Count - 1
    Dim NextIndex As Integer = StartPicIndex + 1
    Dim BackIndex As Integer = StartPicIndex - 1
    Private Sub frmMain_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
 
        'Passe die Bilder an die PictureBox an
        pbxMain.SizeMode = PictureBoxSizeMode.StretchImage
 
        'Passe die Bilder an die Thumb PictureBoxen an
        pbxThumb1.SizeMode = PictureBoxSizeMode.StretchImage
        pbxThumb2.SizeMode = PictureBoxSizeMode.StretchImage
        pbxThumb3.SizeMode = PictureBoxSizeMode.StretchImage
        pbxThumb4.SizeMode = PictureBoxSizeMode.StretchImage
        pbxThumb5.SizeMode = PictureBoxSizeMode.StretchImage
 
        'Neues Bild mit dem StartIndex in die Picturebox
        pbxMain.Image = New Bitmap(Bilderliste(StartPicIndex))
 
        'Neues Bild mit dem entsprechendem Index in die Picturebox
        pbxThumb1.Image = New Bitmap(Bilderliste(EndPicIndex - 2))
        pbxThumb2.Image = New Bitmap(Bilderliste(EndPicIndex - 1))
        pbxThumb3.Image = New Bitmap(Bilderliste(StartPicIndex))
        pbxThumb4.Image = New Bitmap(Bilderliste(StartPicIndex + 1))
        pbxThumb5.Image = New Bitmap(Bilderliste(StartPicIndex + 2))
 
        'Wenn der Index vom Zurück-Button einen ungültigen Wert hat, dann 
        ' schalte ihn aus
        If BackIndex = -1 Then
            butZurück.Enabled = False
        Else
            butZurück.Enabled = True
        End If
 
        'Wenn der Index vom Vor-Button einen ungültigen Wert hat, dann schalte 
        ' ihn aus
        If NextIndex = Bilderliste.Count - 1 Then
            butVor.Enabled = False
        Else
            butVor.Enabled = True
        End If
 
    End Sub
    Private Sub butZurück_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles butZurück.Click
 
        'Neues Bild mit dem Index für ein Bild Zurück
        pbxMain.Image = New Bitmap(Bilderliste(BackIndex))
 
        'Der nächste Zurück Index ist gleich dem Zurück Index minus eins
        BackIndex = BackIndex - 1
 
        'Der nächste Vor Index ist gleich dem Vor Index minus eins
        NextIndex = NextIndex - 1
 
        'Wenn der Index vom Zurück-Button einen ungültigen Wert hat, dann 
        ' schalte ihn aus
        If BackIndex = StartPicIndex - 1 Then
            butZurück.Enabled = False
        Else
            butZurück.Enabled = True
        End If
 
        'Wenn der Index vom Vor-Button einen ungültigen Wert hat, dann schalte 
        ' ihn aus
        If NextIndex = Bilderliste.Count - 1 Then
            butVor.Enabled = False
        Else
            butVor.Enabled = True
        End If
 
    End Sub
 
    Private Sub butVor_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles butVor.Click
 
        'Neues Bild mit dem Index für ein Bild Vor
        pbxMain.Image = New Bitmap(Bilderliste(NextIndex))
 
        'Der nächste Vor Index ist gleich dem Vor Index plus eins
        NextIndex = NextIndex + 1
 
        'Der nächste Zurück Index ist gleich dem Zurück Index plus eins
        BackIndex = BackIndex + 1
 
        'Wenn der Index vom Zurück-Button einen ungültigen Wert hat, dann 
        ' schalte ihn aus
        If BackIndex = -1 Then
            butZurück.Enabled = False
        Else
            butZurück.Enabled = True
        End If
 
        'Wenn der Index vom Vor-Button einen ungültigen Wert hat, dann schalte 
        ' ihn aus
        If NextIndex = Bilderliste.Count - 1 Then
            butVor.Enabled = False
        Else
            butVor.Enabled = True
        End If
 
    End Sub
End Class