'Visual Basic 2010 Shadowing - Shadows Static Typing en Dynamic Binding
Namespace OverloadingRedefinitionOrShadowing3
    Class Class1
        Public Overridable Sub Test()
            Console.WriteLine("Class1.Test()")
        End Sub
    End Class
    Class Class2 : Inherits Class1
        Public Overrides Sub Test()
            Console.WriteLine("Class2.Test()")
        End Sub
    End Class
    Class Example10
        Public Shared Sub Main()
            Dim object1_1 As Class1 = New Class1
            object1_1.Test()
            Dim object1_2 As Class1 = New Class2
            object1_2.Test()
            Dim object2 As Class2 = New Class2
            object2.Test()
            '
            Console.ReadLine()
        End Sub
    End Class
End Namespace
'Bezoek www.vbvoorbeelden.be voor meer Visual Basic voorbeelden.
'Copyright - De Wolf / vbvoorbeelden - 2003-2011 - Alle rechten voorbehouden.