shadows1.vb

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

Namespace Shadows1
    Class Base
        Function Test() As Integer
            Return 1
        End Function
    End Class

    Class Derived
        Shadows Function Test() As Integer
            Return 0
        End Function
    End Class

    Class Consumer
        Shared Function Main() As Integer
            Dim d As New Derived
            Return d.Test
        End Function
    End Class
End Namespace