Use one Delegate to reference two different functions : Delegate « Class Module « VB.Net Tutorial

1. VB.Net Tutorial
2. Class Module
3. Delegate

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