Overloads的特性

 Sub Main()
        Dim s As New S3()
        s.Method()
        CType(s, S2).Method()
        CType(s, S1).Method()
        Console.ReadLine()
    End Sub


End Module

Class S1
    Public Sub Method()
        Console.WriteLine("这是S1实例方法")
    End Sub
End Class
Class S2
    Inherits S1
    Public Overloads Sub Method()
        Console.WriteLine("这是S2实例方法")
    End Sub
End Class
Class S3
    Inherits S2
    'Public Overloads Sub Method()
    '    Console.WriteLine("这是S3实例方法")
    'End Sub
End Class