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

Gruss,

Zardoz