' Overloads_Vs_Shadows_Console_Demo.vb.txt

Module Overloads_Vs_Shadows_Console_Demo

    Sub Main()
        Dim objChild As New Child
        Dim objParent As New Parent
        objChild.Method()
        objChild.Method(1) 'Only valid when using Overloads Overrides Sub Method()
        objParent.Method()
        objParent.Method(1)
        Console.ReadLine()
    End Sub

End Module
Public Class Parent
    Public Overridable Sub Method()
        Console.WriteLine("Parent No Args")
    End Sub

    Public Sub Method(ByVal o As Object)
        Console.WriteLine("Parent One Arg")
    End Sub
End Class

Public Class Child
    Inherits Parent

    'Public Shadows Sub Method() ' - Shadows
    '    Console.WriteLine("Child No Args")
    'End Sub

    Public Overloads Overrides Sub Method() ' - Overloads/Overrides
        Console.WriteLine("Child No Args")
    End Sub

End Class