Option Explicit
 
Private Map1 As StdPicture, P1hdc&, P1OldPic&
 
Private Sub Form_Load()
  ' Laden
  Set Map1 = LoadPicture("C:\EinBild.jpeg")
  P1hdc = CreateCompatibleDC(Me.hdc)
  P1OldPic = SelectObject(P1hdc, Map1.Handle)
  Picture1.ScaleMode = vbPixels
  Picture1.AutoRedraw = True
End Sub
 
Private Sub Zeichne(XZiel&, YZiel&, ZielBreite&, ZielHöhe&, XQuelle&, YQuelle&, _
  QuellBreite&, QuellHöhe&)
  ' Zeichnen
  Call SetStretchBltMode(Picture1.hdc, HALFTONE) ' COLORONCOLOR
  Call StretchBlt(Picture1.hdc, XZiel, YZiel, ZielBreite, ZielHöhe, P1hdc, _
    XQuelle, YQuelle, QuellBreite, QuellHöhe, vbSrcCopy)
  Picture1.Refresh
End Sub
 
Private Sub Form_Unload(Cancel As Integer)
  ' Speicher aufräumen
  If P1hdc <> 0 Then
    Call SelectObject(P1hdc, P1OldPic)
    Call DeleteDC(P1hdc)
    Set Map1 = Nothing
  End If
End Sub

Gruss,

Zardoz