Dim TmpPic As StdPicture, Breite&, Höhe&
 
Set TmpPic = LoadPicture("C:\EinBild.jpeg")
With Picture1
  .ScaleMode = vbPixels
  Breite = CLng(.ScaleX(TmpPic.Width, vbHimetric))
  Höhe = CLng(.ScaleY(TmpPic.Height, vbHimetric))
  .AutoRedraw = True
  .PaintPicture TmpPic, (.ScaleWidth - Breite) \ 2, (.ScaleHeight - Höhe) \ 2
End With
Set TmpPic = LoadPicture()

Gruss,

Zardoz