Dim QuellBreite&, QuellHoehe&, ZielBreite&, ZielHoehe&
  Dim Fkt1!, Fkt2!, TmpPic As StdPicture
 
  Me.MousePointer = vbHourglass
  Set TmpPic = LoadPicture("C:\EinBild.jpeg") ' <- Bildpfad
  With Picture1
    .ScaleMode = vbPixels
    .AutoRedraw = True
    .Cls
    QuellBreite = CLng(.ScaleX(TmpPic.Width, vbHimetric))
    QuellHoehe = CLng(.ScaleY(TmpPic.Height, vbHimetric))
    Fkt1 = .ScaleWidth / QuellBreite
    Fkt2 = .ScaleHeight / QuellHoehe
    If Fkt2 < Fkt1 Then Fkt1 = Fkt2
    ZielBreite = QuellBreite * Fkt1
    ZielHoehe = QuellHoehe * Fkt1
    .PaintPicture TmpPic, (.ScaleWidth - ZielBreite) / 2, (.ScaleHeight - _
      ZielHoehe) / 2, ZielBreite, ZielHoehe
  End With
  Set TmpPic = LoadPicture()
  Me.MousePointer = vbDefault

Gruss,

Zardoz