Public Class Tester Public Shared Sub Main Dim objJohn As New John objJohn.Walk() End Sub End Class Public Class Person Public Sub Walk() Console.WriteLine("Walking...") End Sub End Class Class John Inherits Person End Class
Walking...