Private Sub GetPicture(Img As Image, ByVal sFile As String)
On Error GoTo Fehler
  If Img.Tag = sFile Then Exit Sub
  Img.Picture = LoadPicture(sFile)
  Img.Tag = sFile
Fehler:
  MsgBox "Bilddatei konnte nicht geladen werden"
End Sub

MfG,
Dirk