inheritanced.vb

来自「大名鼎鼎的mono是.NET平台的跨平台（支持linux」· VB 代码 · 共 28 行

Option Strict Off
Interface IBase
    Function F(ByVal i As Integer)
End Interface

Interface ILeft
    Inherits IBase
End Interface

Interface IRight
    Inherits IBase
End Interface

Interface IDerived
    Inherits ILeft, IRight
End Interface

Class D
    Implements IDerived

    Function F(ByVal i As Integer) Implements IDerived.F
    End Function
End Class

Module InheritanceD
    Function Main() As Integer
    End Function
End Module