Imports System.Console


Namespace NS_MyBaseDemo

    Module Demo
        Public Sub Main()

            WriteLine("MyBase Demo")
            WriteLine()

            WriteLine("Base Class...")
            Dim bc As BaseClass = New BaseClass
            bc.OverrideMethod()

            WriteLine()
            WriteLine("Derived Class...")

            Dim dc As DerivedClass = New DerivedClass
            dc.OverrideMethod()
            ReadLine()
        End Sub
    End Module


    Public Class BaseClass
        Public Overridable Sub OverrideMethod()

            Dim arr(3) As Integer '= {1, 2, 3, 4, 5}
            WriteLine("Base OverrideMethod")
        End Sub
    End Class

    Public Class DerivedClass
        Inherits BaseClass

        Public Overrides Sub OverrideMethod()
            Write("Use MyBase Keyword: ")
            MyBase.OverrideMethod()
            WriteLine("Derived OverrideMethod")
        End Sub
    End Class

End Namespace