C#

<br />
Private Sub OnAddButton(ByVal sender As Object, ByVal e As EventArgs)<br />
            Dim b As XPanderLinkLabel<br />
            Dim h As IDesignerHost = DirectCast(GetService(GetType(IDesignerHost)), IDesignerHost)<br />
            Dim dt As DesignerTransaction<br />
            Dim c As IComponentChangeService = DirectCast(getservice(GetType(IComponentChangeService)), IComponentChangeService)<br />
<br />
            'Add a new button to the collection<br />
            dt = h.CreateTransaction("Add Link")<br />
            c.OnComponentChanging(m_XPander, Nothing)<br />
            b = DirectCast(h.CreateComponent(GetType(XPanderLinkLabel)), XPanderLinkLabel)<br />
            m_XPander.contentpanel.controls.add(b)<br />
            c.OnComponentChanged(m_XPander, Nothing, Nothing, Nothing)<br />
            dt.Commit()<br />
        End Sub<br />

<br />
        Private Sub pnlLinks_ControlAdded(ByVal sender As Object, ByVal e As System.Windows.Forms.ControlEventArgs) Handles pnlLinks.ControlAdded<br />
        If TypeOf (e.Control) Is XPanderLinkLabel Then<br />
                Me.Links.Add(DirectCast(e.Control, XPanderLinkLabel))<br />
                DirectCast(e.Control, XPanderLinkLabel).ImageList = Me.ImageList<br />
                e.Control.Dock = DockStyle.Top<br />
                Invalidate()<br />
            End If<br />
        End Sub<br />

<br />
  Public NotInheritable Class XPanderDesigner<br />
        Inherits System.Windows.Forms.Design.ParentControlDesigner<br />
<br />
        Private m_BorderPen As New Pen(Color.FromKnownColor(KnownColor.ControlDarkDark))<br />
        Private m_XPander As XPander<br />
        Private WithEvents m_ICCService As IComponentChangeService<br />
<br />
        Public Sub New()<br />
            m_BorderPen.DashStyle = Drawing.Drawing2D.DashStyle.Dash<br />
        End Sub<br />
<br />
        Public Overrides Sub Initialize(ByVal component As System.ComponentModel.IComponent)<br />
            MyBase.Initialize(component)<br />
            m_XPander = CType(Me.Control, XPander)<br />
        End Sub<br />
<br />
        Protected Overrides Sub OnPaintAdornments(ByVal pe As PaintEventArgs)<br />
            MyBase.OnPaintAdornments(pe)<br />
            pe.Graphics.DrawRectangle(m_BorderPen, 0, 0, m_XPander.Width - 2, m_XPander.Height - 2)<br />
<br />
        End Sub<br />
<br />
        Private Sub m_ICCSerivce_ComponentAdding(ByVal sender As Object, ByVal e As System.ComponentModel.Design.ComponentEventArgs) Handles m_ICCService.ComponentAdding<br />
            Dim b As XPanderLinkLabel<br />
<br />
            '            If TypeOf (e.Component) Is XPanderLinkLabel Then<br />
            m_ICCService.OnComponentChanging(m_XPander, Nothing)<br />
            m_ICCService.OnComponentChanging(m_XPander.pnlLinks, Nothing)<br />
            e.Component.Site = CType(m_XPander.pnlLinks, ISite)<br />
            m_XPander.pnlLinks.Controls.Add(DirectCast(e.Component, XPanderLinkLabel))<br />
            m_ICCService.OnComponentChanged(m_XPander.pnlLinks, Nothing, Nothing, Nothing)<br />
            m_ICCService.OnComponentChanged(m_XPander, Nothing, Nothing, Nothing)<br />
<br />
            '           End If<br />
        End Sub<br />
    End Class<br />

MyObj o2 = (MyObj)o1.Clone(); 
MyObj o2 = new MyObj(o1);

public class MyClass : ICloneable
{
  // ...
  public MyClass Clone()
  {
    // Create the clone and return.
  }
  object ICloneable.Clone()
  {
    return this.Clone();
  }
}

public class MyClass : ICloneable
{
  // ...
  public MyClass(MyClass orig)
  {
    // Create this clone from the original.
  }
  public MyClass Clone()
  {
    return new MyClass(this);
  }
  object ICloneable.Clone()
  {
    return this.Clone();
  }
}

MyClass m1 = new MyClass();
 
m1.Clone();                        // 1
object o = m1.Clone();             // 2
MyClass m2 = (MyClass)m1.Clone();  // 3