' Controls: 1 * FileListBox, 2 * CommandButton, 3 * Image
 
Private Sub Form_Load()
 
  File1.Visible = False
  File1.Pattern = "*.jpeg;*.jpg;*.bmp;*.gif;*.wmf"
  File1.Path = "C:\Bilder" ' Pfad eines Ordners mit Bildern
  Image1.Stretch = True
  Image2.Stretch = True
  Image3.Stretch = True
 
End Sub
 
Private Sub Command1_Click()
 
  If File1.ListIndex < File1.ListCount - 1 Then
    File1.ListIndex = File1.ListIndex + 1
    Call ShowPicture
  Else
    Beep
  End If
 
End Sub
 
Private Sub Command2_Click()
 
  If File1.ListIndex > 0 Then
    File1.ListIndex = File1.ListIndex - 1
    Call ShowPicture
  Else
    Beep
  End If
 
End Sub
 
Private Sub ShowPicture()
 
  Dim Dat1$, N&, i&
 
  For i = 1 To 3
    Dat1 = ""
    N = File1.ListIndex + i - 2
    If N >= 0 And N < File1.ListCount Then
      Dat1 = File1.Path & "\" & File1.List(N)
    End If
    Set Me.Controls("Image" & i).Picture = LoadPicture(Dat1)
  Next i
 
End Sub

Gruss,

Zardoz