Dim i&
 
With Picture1
  .AutoRedraw = True
  .ScaleMode = vbPixels
  .Cls
  For i = Image2.LBound To Image2.UBound
    With Image2(i)
      If .Visible = True Then
 
'in dieser Zeile kommt die Fehlermeldung
        Picture1.PaintPicture .Picture, .Left, .Top
 
   End If
    End With
  Next i
  SavePicture .image, sFile
'  Clipboard.Clear
'  Clipboard.SetData .image, vbCFBitmap
  .Cls
End With