viele grüße aus Hamburg bei +Graden und wie immer REGEN
ray
Option Explicit
Public cntBild As Integer
Private Sub CommandButton1_Click()
cntBild = cntBild + 1
With Application.FileSearch
.LookIn = "c:\bilder"
.Filename = "*.jpg"
.Execute
If .FoundFiles.Count > cntBild Then
Me.Image1.Picture = LoadPicture(.FoundFiles(cntBild))
End If
End With
End Sub