Imports System

Public Module Module1

​

Public Class poly

Public Overridable Sub show()

Console.WriteLine("hello")

End Sub

End Class

​

Public Class poly2

Inherits poly

Public Overrides Sub show()

Console.WriteLine("world")

End Sub

End Class

​

​

Public Sub Main()

Dim a As New poly2()

a.show()

End Sub

End Module

​