自定義控件傳遞事件

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