Public Class Tester
Public Shared Sub Main
Dim objBob As New Bob
objBob.Walk("Now I'm walking...")
End Sub
End Class
Public Class Person
Public Sub Walk()
Console.WriteLine("Walking...")
End Sub
End Class
Class Bob
Inherits Person
Public Overloads Sub Walk(ByVal Text As String)
Console.WriteLine(Text)
End Sub
End Class
|