Imports System
Imports System.Reflection
Public Class A
Public Overridable Sub B()
Console.WriteLine("C")
End Sub
Public Overridable Sub C()
Console.WriteLine("C")
End Sub
Public Overridable Sub D()
Console.WriteLine("E")
End Sub
End Class
Public Class B
Inherits A
Public Overrides Sub C()
Console.WriteLine("C")
End Sub
Public Shadows Sub D()
Console.WriteLine("D")
End Sub
End Class
Public Class GetBaseDef
Public Shared Sub Main()
Dim t As Type = GetType(B)
Dim m As MethodInfo
m = t.GetMethod("B")
Console.WriteLine(m.GetBaseDefinition().DeclaringType.ToString() + " " + m.GetBaseDefinition().ToString())
End Sub
End Class