Picyurebox'ы

[Akella]

у меня такая проблема: на форме расположены 3 или больше PictureBox'ов,
при чем два из них как бы главные, а остальные находяться в нутри первого PictureBox'а.
ТАК ВОТ как перенести один или несколько ВНУТРЕННИХ PictureBox'ов из первого во второй,
но чтобы он/они остовались и в первом PictureBox'е,

[GSerg]

Код: Выделить всё

Option Explicit

Private Sub Command1_Click()
  Clone pbSmallPicture1, pbBigPicture2, "Clone1"
End Sub

Private Sub Clone(ByVal Whom As PictureBox, ByVal Where As PictureBox, NewName As String)
  With Me.Controls.Add("vb.picturebox", NewName, Where)
    .Left = Whom.Left
    .Top = Whom.Top
    .Width = Whom.Width
    .Height = Whom.Height
    .Picture = Whom.Picture
    .Visible = True
  End With
End Sub

[Akella]

А как копии назначить свойства орегинала

[GSerg]

Издеваешься?

[Akella]

НЕЕТ

[GSerg]

Если нет - как можно не увидеть в приведённом коде копирование свойств оригинала в копию?