implementsclause2.vb

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

Namespace ImplementsClause2
    Public Class Class1 : Implements TestInterface
        Public ReadOnly Property Test() As Boolean Implements TestInterface.Test
            Get
                Return True
            End Get
        End Property

        Public Sub TestSub() Implements TestInterface.TestSub

        End Sub

        Public Sub SubInterface() Implements SubInterface.SubInterface

        End Sub
    End Class
    Interface TestInterface : Inherits SubInterface
        Sub TestSub()
        ReadOnly Property Test() As Boolean
    End Interface

    Interface SubInterface
        Sub SubInterface()
    End Interface

End Namespace