'// Klasse _MyClass1 Beispiel1 mit Eventhandler
Public Class _MyClass
    Public MyEventHandler As EventHandler
    Public Sub DoSomething()
        Me.MyEventHandler.Invoke(Me, New EventArgs)
    End Sub
End Class
 
'// Klasse _MyClass2 Beispiel2 mit einem Delegate
Public Class _MyClass2
    Public Delegate Sub MyDelegate(ByVal sender As Object, ByVal e As EventArgs)
    Public MyEvent As MyDelegate
    Public Sub DoSomething()
        Me.MyEvent(Me, New EventArgs)
    End Sub
End Class

Public Class Form1
    Inherits System.Windows.Forms.Form
    Dim obj1 As New _MyClass
    Dim obj2 As New _MyClass2
#Region " Vom Windows Form Designer generierter Code "
' ..
#End Region
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        obj1 = New _MyClass
        obj1.MyEventHandler = New EventHandler(AddressOf MyEvent1)
 
        obj2 = New _MyClass2
        obj2.MyEvent = New _MyClass2.MyDelegate(AddressOf MyEvent2)
    End Sub
    Private Sub MyEvent1(ByVal sender As Object, ByVal e As EventArgs)
        MessageBox.Show("Hello World! I come from obj1 Event!")
    End Sub
 
    Private Sub MyEvent2(ByVal sender As Object, ByVal e As EventArgs)
        MessageBox.Show("Hello World! I come from obj2 Event!")
    End Sub
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        obj1.DoSomething()
    End Sub
 
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button2.Click
        obj2.DoSomething()
    End Sub
End Class