Imports System.Console
Namespace NS_InterfaceDemo

    Module Demo
        Public Sub Main()
            WriteLine("Interface Demo")
            WriteLine()
            Dim Manny As New ChildUsingInterface
            WriteLine("Manny has " & Manny.Hair & " hair and " & Manny.Eyes & " eyes.")
            Dim Moe As New ChildUsingMustInheritClass
            WriteLine("Moe has " & Moe.Hair & " hair and " & Moe.Eyes & " eyes.")
            ReadLine()
        End Sub
    End Module

End Namespace


Public Class ChildUsingInterface
    Implements iMother, iFather

    Public Function Hair() As String Implements iFather.Hair
        Return "Blond"
    End Function

    Public Function Eyes() As String Implements iMother.Eyes
        Return "Blue"
    End Function
End Class


Interface iMother
    Function Eyes() As String
End Interface

Interface iFather
    Function Hair() As String
End Interface

Public MustInherit Class Parents
    Public MustOverride Function Eyes()
    Public MustOverride Function Hair()
End Class

Public Class ChildUsingMustInheritClass
    Inherits Parents

    Public Overrides Function Eyes() As Object
        Return "Hazel"
    End Function

    Public Overrides Function Hair() As Object
        Return "Brown"
    End Function
End Class