[System.Runtime.InteropServices.ComVisible(true)]
[System.Runtime.InteropServices.Guid("60550064-C97F-4306-A8B2-6908F50780E3")]
[System.Runtime.InteropServices.ComSourceInterfaces(typeof(IComMyEvent))]
public partial class MyWinFormControl : UserControl
{
}

using System.Runtime.InteropServices;[Guid("096EF9A6-24CB-4091-A18F-34DA38C9A6F1")]
[ComVisible( true )]
[InterfaceType( ComInterfaceType.InterfaceIsIDispatch )]
public interface IComMyEvent
{/// <summary>/// 按钮按下事件/// </summary>[DispId(12340)]void ComButtonClick();/// <summary>/// 文本内容修改事件t/// </summary>[DispId(12350)]void ComTextChanged();
}/// <summary>
/// 无参数无返回值委托类型
/// </summary>
public delegate void VoidEventHandler();

#region 实现 IComMyEvent 中的成员
/// <summary>
/// 按钮按下事件
/// </summary>
public event VoidEventHandler ComButtonClick = null;
/// <summary>
/// 文本内容修改事件
/// </summary>
public event VoidEventHandler ComTextChanged = null;#endregion

private void btnAction_Click(object sender, EventArgs e)
{if (ComButtonClick != null){// 触发ComButtonClick事件
        ComButtonClick();}
}private void myTextBox_TextChanged(object sender, EventArgs e)
{if (ComTextChanged != null){// 触发ComTextChanged事件
        ComTextChanged();}
}

/// <summary>
/// 公开的属性
/// </summary>
public string UserText
{get{return myTextBox.Text;}set{myTextBox.Text = value;}
}/// <summary>
/// 公开的方法
/// </summary>
public double Calcute(double p)
{return Math.Sin(p);
}

/// <summary>
/// 将控件添加到指定句柄的窗体中
/// </summary>
/// <param name="containerHandle">指定的窗体句柄对象</param>
/// <returns>操作是否成功</returns>
public bool AppendToContainerControl(int containerHandle)
{CrossPlatformControlHostManager man = new CrossPlatformControlHostManager();man.ContainerHandle = new IntPtr(containerHandle);man.ControlHandle = this.Handle;man.Dock = this.Dock;return man.UpdateLayout();
}

private IntPtr _ControlHandle = IntPtr.Zero;
/// <summary>
/// 操作的控件句柄对象
/// </summary>
public IntPtr ControlHandle
{get{ return _ControlHandle; }set{ _ControlHandle = value; }
}private IntPtr _ContainerHandle = IntPtr.Zero;
/// <summary>
/// 容器元素对象
/// </summary>
public IntPtr ContainerHandle
{get{ return _ContainerHandle; }set{ _ContainerHandle = value; }
}private DockStyle _Dock = DockStyle.Fill;
/// <summary>
/// 停靠样式
/// </summary>
public DockStyle Dock
{get{ return _Dock; }set{ _Dock = value; }
}

/// <summary>
/// 更新排版
/// </summary>
/// <returns>操作是否成功</returns>
public bool UpdateLayout()
{WindowInformation info = new WindowInformation(this.ControlHandle);WindowInformation container = new WindowInformation(this.ContainerHandle);if (info.CheckHandle() == false|| container.CheckHandle() == false){return false;}if (info.ParentHandle != container.Handle){if (info.SetParent(container.Handle) == false){return false;}}Rectangle clientRect = container.ClientBounds;Rectangle bounds = info.Bounds;Rectangle descBounds = bounds;switch (this.Dock){case DockStyle.Fill:descBounds = clientRect;break;case DockStyle.Bottom:descBounds = new Rectangle(0,clientRect.Height - bounds.Height, clientRect.Width,bounds.Height);break;case DockStyle.Left:descBounds = new Rectangle(0,0,bounds.Width, clientRect.Height);break;case DockStyle.Right:descBounds = new Rectangle(clientRect.Width - bounds.Width,0,bounds.Width,clientRect.Height);break;case DockStyle.Top:descBounds = new Rectangle(0,0,clientRect.Width,bounds.Height);break;}if (descBounds != bounds){info.Bounds = descBounds;}return true;
}

using System.Reflection;
using System.Runtime.CompilerServices;
using System.Runtime.InteropServices;// 有关程序集的常规信息通过以下
// 特性集控制。更改这些特性值可修改
// 与程序集关联的信息。
[assembly: AssemblyTitle("袁永福的COM测试")]
[assembly: AssemblyDescription("")]
[assembly: AssemblyConfiguration("")]
[assembly: AssemblyCompany("")]
[assembly: AssemblyProduct("DCWinFormControlLib")]
[assembly: AssemblyCopyright("Copyright ©  2012")]
[assembly: AssemblyTrademark("")]
[assembly: AssemblyCulture("")]// 将 ComVisible 设置为 false 使此程序集中的类型
// 对 COM 组件不可见。如果需要从 COM 访问此程序集中的类型，
// 则将该类型上的 ComVisible 特性设置为 true。
[assembly: ComVisible(true)]// 如果此项目向 COM 公开，则下列 GUID 用于类型库的 ID
[assembly: Guid("c241537f-dfe8-4502-b43a-967f9437ee7c")]
[assembly: AssemblyVersion("1.0.0.*")]

Option Explicit' 定义控件变量
Private WithEvents myWinFormControl As DCWinFormControlLib.myWinFormControl' VB按钮点击事件处理
Private Sub cmdSetText_Click()myWinFormControl.UserText = "袁永福到此一游"
End Sub' 窗体加载事件
Private Sub Form_Load()Set myWinFormControl = New DCWinFormControlLib.myWinFormControlmyWinFormControl.Dock = 4myWinFormControl.AppendToContainerControl Me.picContainer.hWnd
End Sub' 窗体大小改变事件
Private Sub Form_Resize()If Me.ScaleWidth > 3000 And Me.ScaleHeight > 3000 ThenMe.picContainer.Width = Me.ScaleWidth - Me.picContainer.Left - 50Me.picContainer.Height = Me.ScaleHeight - Me.picContainer.Top - 50If Not myWinFormControl Is Nothing ThenmyWinFormControl.AppendToContainerControl Me.picContainer.hWndEnd IfEnd If
End Sub' 窗体卸载事件
Private Sub Form_Unload(Cancel As Integer)Set myWinFormControl = Nothing
End Sub' 响应控件ComButtonClick事件
Private Sub myWinFormControl_ComButtonClick()MsgBox "用户点击了控件中的按钮"
End Sub' 响应控件ComTextChanged事件
Private Sub myWinFormControl_ComTextChanged()Me.Caption = "用户修改了控件中的文字"
End Sub