' Delegate_Demo.vb.txt
Module DelegateDemo

    Delegate Sub TestSubDelegate(ByVal str As String)

    Sub Main()
        Dim InstanceOfTestSubDelegate As TestSubDelegate
        InstanceOfTestSubDelegate = AddressOf TargetSub
        InstanceOfTestSubDelegate.Invoke("Hello World") ' Call the method.
    End Sub

    Sub TargetSub(ByVal str As String)
        Console.WriteLine(str)
        Console.ReadLine()
    End Sub

End Module