Imports System
Module HelloWorld
Delegate Sub MyDelegate(ByVal msg as String)
Public Sub Main()
Dim msg As String = "Hello Delegates"
Dim d1 as MyDelegate = AddressOf PrintOnce
Dim d2 as MyDelegate = AddressOf PrintTwice
d1(msg)
d2(msg)
End Sub
Public Sub PrintOnce(ByVal msg as String)
Console.WriteLine(msg)
End Sub
Public Sub PrintTwice(ByVal msg as String)
Console.WriteLine("1." & msg)
Console.WriteLine("2." & msg)
End Sub
End Module
|