[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.myWinFormControl
    myWinFormControl.Dock = 4
    myWinFormControl.AppendToContainerControl Me.picContainer.hWnd
End Sub

' 窗体大小改变事件
Private Sub Form_Resize()
    If Me.ScaleWidth > 3000 And Me.ScaleHeight > 3000 Then
        Me.picContainer.Width = Me.ScaleWidth - Me.picContainer.Left - 50
        Me.picContainer.Height = Me.ScaleHeight - Me.picContainer.Top - 50
        If Not myWinFormControl Is Nothing Then
            myWinFormControl.AppendToContainerControl Me.picContainer.hWnd
        End If
    End 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