Bueno gracias por responder pero es un poquito mas complejo que eso...
Código VB.NET:
Ver originalPublic Class UserControl1
Public Event MyButtonClick As EventHandler(Of MyButtonClickEventArgs)
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
RaiseEvent MyButtonClick(Me, New MyButtonClickEventArgs("nobugz"))
End Sub
Public Class MyButtonClickEventArgs
Inherits EventArgs
Private mText As String
Public Sub New(ByVal text As String)
mText = text
End Sub
Public ReadOnly Property Text() As String
Get
Return mText
End Get
End Property
End Class
End Class
Código VB.NET:
Ver originalPrivate Sub UserControl11_MyButtonClick(ByVal sender As System.Object, ByVal e As WindowsApplication1.UserControl1.MyButtonClickEventArgs) Handles UserControl11.MyButtonClick
TextBox1.Text = e.Text
End Sub