Public Class MyButtonClickEventArgs
    Inherits System.EventArgs
 
    Public data As String
 
    Public Sub New(ByVal pdata As String)
        data = pdata
    End Sub
 
End Class
 
Public Class MyButton
    Inherits Button
 
    Public Shadows Event Click(ByVal sender As Object, ByVal e As _
      MyButtonClickEventArgs)
 
    Protected Overrides Sub OnClick(ByVal e As System.EventArgs)
        RaiseEvent Click(Me, New MyButtonClickEventArgs("My event data"))
    End Sub
 
End Class

    Private Sub Button1_Click(ByVal sender As Object, ByVal e As _
      MyButtonClickEventArgs) Handles Button1.Click
        Debug.WriteLine(e.data)
    End Sub