Interfacce in VB.NET

Ecco creata un'interfaccia:

Module Module1

    Sub Main()
        Dim insieme As New ArrayList

        Dim Mario As New Programmatore
        Dim Giuseppe As New Medico
        Dim Antonio As New Medico
        Dim Luigi As New Programmatore
        Dim Pasquale As New Medico

        insieme.Add(Mario)
        insieme.Add(Giuseppe)
        insieme.Add(Antonio)
        insieme.Add(Luigi)
        insieme.Add(Pasquale)

        Dim num As VBProgram
        For Each num In insieme
            num.createVBConsoleApplications()
        Next
        Console.ReadKey()


    End Sub

End Module

Interface VBProgram
    Sub createVBWindowApplications()
    Sub createVBConsoleApplications()

End Interface

Class Programmatore
    Implements VBProgram

    Public Sub createVBConsoleApplications() Implements VBProgram.createVBConsoleApplications
        Console.WriteLine("Sviluppo un'applicazione Console con VB")
    End Sub

    Public Sub createVBWindowApplications() Implements VBProgram.createVBWindowApplications
        Console.WriteLine("Sviluppo un'applicazione Windows con VB")
    End Sub


    Public Sub createCPPConsoleApplications()
        Console.WriteLine("Sviluppo un'applicazione Console con C++")
    End Sub

    Public Sub createCPPWindowsApplications()
        Console.WriteLine("Sviluppo un'applicazione Windows con C++")
    End Sub
End Class

Class Medico
    Implements VBProgram

    Public Sub createVBConsoleApplications() Implements VBProgram.createVBConsoleApplications
        Console.WriteLine("Sviluppo un'applicazione Console con VB per le diagnosi differenziali")
    End Sub

    Public Sub createVBWindowApplications() Implements VBProgram.createVBWindowApplications
        Console.WriteLine("Sviluppo un'applicazione Windows con VB per le diagnosi differenziali")
    End Sub

    Public Sub visitaPaziente()
        Console.WriteLine("Visito un paziente")
    End Sub

    Public Sub decidiTerapia()
        Console.WriteLine("Imposto una terapia farmacologica")
    End Sub
End Class

Ecco l'output:

Sviluppo un'applicazione Console con VB
Sviluppo un'applicazione Console con VB per le diagnosi differenziali
Sviluppo un'applicazione Console con VB per le diagnosi differenziali
Sviluppo un'applicazione Console con VB
Sviluppo un'applicazione Console con VB per le diagnosi differenziali