With Picture1
    <font color=green>' Größe der unsichtabren PictureBox festlegen</font>
    .BorderStyle = 0
    .Width = Image1.Width
    .Height = Image1.Height
 
     <font color=green>' Wichtig: AutoRedraw = True</font>
    .AutoRedraw = True
 
     <font color=green>' Bild aus ImageBox übertragen</font>
    .PaintPicture Image1.Picture, 0, 0, _
      Image1.Width, Image1.Height
 
     <font color=green>' Bild abspeichern</font>
    SavePicture .Image, "c:	est.bmp"
  End With