Given this example:
鉴于这个例子:
Imports System
Public Module Module1
Public Sub Main()
Console.WriteLine("Expect 'WheelValue' here.")
Dim car as New Car()
car.DoSomething()
Console.WriteLine("Expect 'FordWheelValue' here.")
Dim ford as New Ford()
ford.DoSomething()
End Sub
Public Class Car
Public Sub DoSomething()
Console.WriteLine("Car.DoSomething()")
Console.WriteLine("Wheel=" + Wheel.Value)
Console.WriteLine(Environment.NewLine)
End Sub
Public Property Wheel As New Wheel()
End Class
Public Class Ford
Inherits Car
Public Shadows Property Wheel As New FordWheel()
End Class
Public Class Wheel
Public Value As String = "WheelValue"
End Class
Public Class FordWheel
Public Value As String = "FordWheelValue"
End Class
End Module
Imports System