Set Form3.Image1.Picture = ByteArrayToPicture(bData())

Dim BildBreite&, BildHoehe&, ZielBreite&, ZielHoehe&, Fkt1!, Fkt2!
 
With Image1
  .Visible = False
  BildBreite = CLng(Me.ScaleX(.Picture.Width, vbHimetric))
  BildHoehe = CLng(Me.ScaleY(.Picture.Height, vbHimetric))
  Fkt1 = Me.ScaleWidth / BildBreite
  Fkt2 = Me.ScaleHeight / BildHoehe
  If Fkt2 < Fkt1 Then Fkt1 = Fkt2
  ZielBreite = BildBreite * Fkt1
  ZielHoehe = BildHoehe * Fkt1
  .Stretch = True
  .Move (Me.ScaleWidth - ZielBreite) / 2, (Me.ScaleHeight - ZielHoehe) / 2, _
    ZielBreite, ZielHoehe
  .ZOrder vbBringToFront
  .Visible = True
End With

Gruss,

Zardoz