Public Class Form1
    WithEvents TextBoxPluss As TextBox 'WithEvent一個TextBox控制元件，因為自定義控制元件中需要傳遞的事件為TextBox的事件

    Private Sub TextBoxPlus_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBoxPluss.KeyPress'定義一個KeyPress事件(其他事件也可以)
        MsgBox(e.KeyChar)
    End Sub

    Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        TextBoxPluss = TextBoxPlus1.TextBox1'在主窗體的Load事件中將自定義控制元件中的控制元件賦值給WithEvent出來的控制元件，使其在主窗體中有物件。
    End Sub
End Class