With Picture1
    .AutoRedraw = True
    .PaintPicture LoadPicture("c:\Bilder Katalog\" & sBildername & ".jpg"), _
      0, 0, .ScaleWidth, .ScaleHeight
    Set .Picture = .Image
    .AutoRedraw = False
  End With

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de