✔ Probleme mit Crop in einer PictureBox (VB6)

[phylax]

Hallo,

ich will das Bild in einer PictureBox "Croppen" / Freistellen, habe auch schon einen passenden Codeabschnitt erstellt. Es funktioniert auch prima, das Bild wird korrekt ausgeschnitten und angezeigt. Doch wenn ich das Bild speichere oder in die Zwischenablage kopiere, hat es immer noch die Ursprungsgröße. Man sieht dann, dass das kleinere Bild in die linke obere Ecke kopiert wurde, die Gesamtgröße wurde aber nicht auf diesen Ausschnitt verringert.

With Me.ActiveForm.Picture1
  .Width = Me.ActiveForm.CurX - Me.ActiveForm.StartX
  .Height = Me.ActiveForm.CurY - Me.ActiveForm.StartY
 .PaintPicture .Picture, 0, 0, .Width, .Height, Me.ActiveForm.StartX,      Me.ActiveForm.StartY, .Width, .Height
.Refresh

Ich habe auch schon ein BitBlt sowie StretchBlt versucht, klappt alles wunderbar, nur mit dem selben Effekt. Das nachträgliche ändern der Pictureboxgröße mit

  .Width = newWidth
  .Height = newHeight

hat auch nichts gebracht.

Wie kann ich die "Größe" der Picturebox ändern, dass sie genauso groß ist wie mein neuer Ausschnitt!?
Ich bin am Verzweifeln...

Ich wäre für einen Rat sehr dankbar.
Viele Grüße
Norman

 

[phylax]

FYI:

Heute morgen bin ich auf die gloreiche Idee gekommen, doch einfach mal
.Picture = .Image
einzufügen. Und siehe da, mein tagelanges rumprobieren hat sich schlagartig erledigt.

Gruß
Norman