Interface with two methods : Interface « Class Module « VB.Net Tutorial

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

Interface Speak
    Sub GoodMorning()
    Sub GoodEvening(ByVal CurrentDate As DateTime)
End Interface

Class English
    Implements Speak

    Public Sub GoodMorning() Implements Speak.GoodMorning
        Console.WriteLine("Good morning!")
    End Sub

    Public Sub GoodEvening(ByVal CurrentDate As DateTime) Implements Speak.GoodEvening
        Console.WriteLine("Good evening -- it is now " & CurrentDate)
    End Sub
End Class

Class Spanish
    Implements Speak

    Public Sub GoodMorning() Implements Speak.GoodMorning
        Console.WriteLine("Buenos Dias!")
        Console.WriteLine(Now())
    End Sub

    Public Sub GoodEvening(ByVal CurrentDate As DateTime) Implements Speak.GoodEvening
        Console.WriteLine("Buenas noches -- La fetcha y hora son " & CurrentDate)
    End Sub
End Class


Module Module1

    Sub Main()
        Dim Hello As New English()
        Dim Hola As New Spanish()

        Hello.GoodMorning()
        Hello.GoodEvening(Now())

        Hola.GoodMorning()
        Hola.GoodEvening(Now())
    End Sub

End Module

Good morning!
Good evening -- it is now 11/05/2007 9:29:46 PM
Buenos Dias!
11/05/2007 9:29:46 PM
Buenas noches -- La fetcha y hora son 11/05/2007 9:29:46 PM