Public Class Form1

    Private Delegate Sub TestDelegate(ByVal name As String)
    Private Event SayHelloEvent(ByVal name As String)
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles Me.Load
        Dim testdelegateeventhandler As TestDelegate = AddressOf SayHello
        'AddHandler SayHelloEvent, testdelegateeventhandler 'line 7
        AddHandler SayHelloEvent, AddressOf Me.SayHello 'line 8
        RaiseEvent SayHelloEvent("Ian")

    End Sub

    Public Sub SayHello(ByVal name As String)
        MsgBox("Hello " & name)
    End Sub
End Class