Event VB.Net Tutorial

Module Module1
    Delegate Sub GreetingMethod()
    Dim Greeting As New GreetingMethod(AddressOf MorningEnglish)
    Sub MorningEnglish()
        Console.WriteLine("Good morning")
    End Sub
    Sub AfternoonEnglish()
        Console.WriteLine("Good afternoon")
    End Sub
    Sub EveningEnglish()
        Console.WriteLine("Good evening")
    End Sub
    Sub MorningSpanish()
        Console.WriteLine("Buenas dias")
    End Sub
    Sub AfternoonSpanish()
        Console.WriteLine("Buenos tardes")
    End Sub
    Sub EveningSpanish()
        Console.WriteLine("Buenos noches")
    End Sub
    Sub Main()
        Greeting = AddressOf MorningEnglish
        Greeting = AddressOf AfternoonEnglish
        Greeting = AddressOf EveningEnglish
        Greeting = AddressOf MorningSpanish
        Greeting = AddressOf AfternoonSpanish
        Greeting = AddressOf EveningSpanish
        Greeting.Invoke()
    End Sub
End Module
Buenos noches