Option Explicit
 
Private Pics&, PicHdc&
Private PicList() As StdPicture
 
Private Sub Form_Load()
 
Dim i&, Pfad1$
 
Pics = 120
ReDim PicList(Pics - 1)
 
For i = 0 To Pics - 1
  Pfad1 = "C:\PicFolder\Photo" & Format(i, "000") & ".jpg"
  If Dir(Pfad1) = "" Then
    MsgBox "Datei nicht gefunden:" & vbCr & Pfad1, vbExclamation + vbOKOnly
  Else
    Set PicList(i) = LoadPicture(Pfad1)
  End If
Next i
PicHdc = CreateCompatibleDC(Me.hdc)
 
End Sub
 
Private Sub Command1_Click()
 
Call AccessPicture(30)
 
End Sub
 
Private Sub AccessPicture(Index&)
'Bild holen
 
Dim Breite&, Höhe&, PicOldHdl&
 
With PicList(Index)
  PicOldHdl = SelectObject(PicHdc, .Handle)
  Breite = CLng(Me.ScaleX(.Width, vbHimetric, vbPixels))
  Höhe = CLng(Me.ScaleY(.Height, vbHimetric, vbPixels))
End With
With Picture1
  Call BitBlt(.hdc, 0, 0, Breite, Höhe, PicHdc, 0, 0, vbSrcCopy)
  If .Visible = True Then
    If .AutoRedraw = True Then
      .Refresh
    End If
  End If
End With
Call SelectObject(PicHdc, PicOldHdl)
 
End Sub
 
Private Sub Form_Unload(Cancel As Integer)
 
Call DeleteDC(PicHdc)
Erase PicList
 
End Sub

Gruss,

Zardoz