Private Sub BildSpeichern(oContainer As Object, ByVal sFile As String)
  ' Inhalt einer Form/PictureBox als Bild speichern
  Dim FrmOldScaleMode As Integer
  Dim PicOldScaleMode As Integer
  Dim OldAutoRedraw As Boolean
 
  ' Scale-Mode auf Pixel setzen
  FrmOldScaleMode = Me.ScaleMode
  Me.ScaleMode = vbPixels
 
  ' Eigenschaften der 2. PictureBox, die als
  ' Zwischenspeicher dient
 
 
Dim Img As Control
 
With Picture1
  .ScaleMode = vbPixels
  .AutoRedraw = True
  .Cls
  For Each Img In Image2
    With Img
      If .Visible = True And .Picture.Type <> vbPicTypeNone Then
        Picture1.PaintPicture .Picture, .Left, .Top
      End If
    End With
  Next Img
  SavePicture .image, sFile
'  Clipboard.Clear
'  Clipboard.SetData .image, vbCFBitmap
  .Cls
End With
End Sub

Private Sub BildSpeichern(oContainer As Object, ByVal sFile As String)
  ' Inhalt einer Form/PictureBox als Bild speichern
  Dim FrmOldScaleMode As Integer
  Dim PicOldScaleMode As Integer
  Dim OldAutoRedraw As Boolean
 
  ' Scale-Mode auf Pixel setzen
  FrmOldScaleMode = Me.ScaleMode
  Me.ScaleMode = vbPixels
 
  ' Eigenschaften der 2. PictureBox, die als
  ' Zwischenspeicher dient
  With Picture2
    .Visible = False
    .BorderStyle = 0
    .AutoRedraw = True
    .ScaleMode = vbPixels
 
    ' 2. PictureBox über das Container-Objekt legen
    With oContainer
      PicOldScaleMode = .ScaleMode
      .ScaleMode = vbPixels
      Picture2.Move 0, 0, .ScaleWidth, .ScaleHeight
      Me.ScaleMode = FrmOldScaleMode
      OldAutoRedraw = .AutoRedraw
 
      ' Inhalt des Containers in die 2. PictureBox kopieren
      .AutoRedraw = False
      BitBlt Picture2.hdc, 0, 0, .ScaleWidth, .ScaleHeight, _
        .hdc, 0, 0, vbSrcCopy
      .AutoRedraw = OldAutoRedraw
      .ScaleMode = PicOldScaleMode
    End With
 
    ' Inhalt der 2. PictureBox als Bitmap speichern
    SavePicture .image, sFile
    ' Inhalt der 2. PictureBox in die Zwischablage speichern
'    Clipboard.Clear
'    Clipboard.SetData .image
    '------------------------
.Cls
    .AutoRedraw = False
  End With
End Sub