Use MyClass : MyClass « Class Module

Class Base

    Public Function Message() As String

        Message = "Hello, World from Base Class"

    End Function



    Public Overridable Function Message2() As String

        Message2 = "Base Class Message 2"

    End Function



    Public Sub ShowMessages()

        Console.WriteLine(MyClass.Message())

        Console.WriteLine(MyClass.Message2())

    End Sub



End Class



Class Derived

    Inherits Base



    Public Shadows Function Message() As String

        Message = "Hi, from Derived Class"

    End Function



    Public Overrides Function Message2() As String

        Message2 = "Derived Class Message 2"

    End Function



End Class



Module Module1



    Sub Main()



        Dim BaseObj As New Base()

        Dim DerivedObj As New Derived()



        Console.WriteLine("Base object Message: " & BaseObj.Message())

        Console.WriteLine("Derived object Message: " & DerivedObj.Message())



        Dim MixedObj As Base = New Derived()

        Console.WriteLine("Mixed message: " & MixedObj.Message())



        Console.WriteLine("Base object Message2: " & BaseObj.Message2())

        Console.WriteLine("Derived object Message2: " & DerivedObj.Message2())

        Console.WriteLine("Mixed message2: " & MixedObj.Message2())



        Console.WriteLine()

        Console.WriteLine("Mixed using MyClass")

        MixedObj.ShowMessages()

    End Sub



End Module
Use MyClass : MyClass « Class Module « VB.Net Tutorial
