Dim i&
 
With Picture1
  .AutoRedraw = True
  .ScaleMode = vbPixels
  .Cls
  For i = Image1.LBound To Image1.UBound
    With Image1(i)
      If .Visible = True Then
        Picture1.PaintPicture .Picture, .Left, .Top
      End If
    End With
  Next i
  Clipboard.Clear
  Clipboard.SetData .Image, vbCFBitmap
  .Cls
End With
'Call RasterNeu

Gruss,

Zardoz