Public Class StringEventArgs
    Inherits System.EventArgs
 
    Dim _text As String = String.Empty
 
    Public Sub New(ByVal text As String)
        If text IsNot Nothing Then _text = text
    End Sub
 
    Public ReadOnly Property Text() As String
        Get
            Return _text
        End Get
    End Property
End Class

Public Event ButtonClick(ByVal sender As Object, ByVal e As StringEventArgs)
 
Private Sub Button1_Click(ByVal sender As System.Object, _
                            ByVal e As System.EventArgs) Handles Button1.Click
 
   RaiseEvent ButtonClick(me, New StringEventArgs(TextBox1.Text))
End Sub

Private Sub UcTextButton1_ButtonClick(ByVal sender As Object, _
    ByVal e As StringEventArgs) Handles UcTextButton1.ButtonClick
 
        MsgBox(e.Text)
 
End Sub