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...