Late binding : Polymorphism « Class Module « VB.Net Tutorial

1. VB.Net Tutorial
2. Class Module
3. Polymorphism

Public Class Tester
    Public Shared Sub Main
        Dim objHorse As Object
        Dim objPuma As Object
        objHorse = New Horse
        objPuma = New Puma

        Try
            objHorse.Walk()
        Catch
            Console.WriteLine("Sorry, no Walk method available in objHorse.")
        End Try

        Try
            objPuma.Walk()
        Catch
            Console.WriteLine("Sorry, no Walk method available in objPuma.")
        End Try
    End Sub
End Class

Public Class Horse
    Public Sub Walk()
        Console.WriteLine("Walking...")
    End Sub
End Class

Public Class Puma
    Public Sub Run()
        Console.WriteLine("Running...")
    End Sub
End Class

Walking...
Sorry, no Walk method available in objPuma.