Public Event Test1(wert As Integer)
Public Event Test2(wert As String)

Public Event Test(zahl As Integer, zeichen As String)

Public Event Test(wert As Object)
 
 
' in der Form
Private Sub Komponente_Test(wert As Object) Handles Komponente.Test
  If TypeOf wert Is Integer Then
 
  ElseIf TypeOf wert Is String Then
 
  End If
End Sub

Public Class MeinControl(Of T)
 
  Public Event Test(wert As T)
 
End Class
 
 
Public Class Form1
 
  Dim WithEvents Komponente As New MeinControl(Of Integer) 'gewünschter Typ
 
  Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    Me.Controls.Add(Komponente)
  End Sub
 
  ' automatisch eingefügt:
  Private Sub Komponente_Test(wert As Integer) Handles Komponente.Test
 
  End Sub
 
End Class