VB.Net/Class/Shadows

Shadow base method

<source lang="vbnet"> Imports System Public Class MainClass

   Shared Sub Main()
        Dim w As New Window(5, 10)
        w.DrawWindow(  )
        Dim lb As New ListBox(20, 30, "Hello world")
        lb.DrawWindow(  )
   End Sub

End Class

Public Class Window
    Public Sub New(ByVal top As Integer, ByVal left As Integer)
        Me.top = top
        Me.left = left
    End Sub "New
    Public Sub DrawWindow(  )
        Console.WriteLine("Drawing Window at {0}, {1}", top, left)
    End Sub
    Private top As Integer
    Private left As Integer
End Class
Public Class ListBox
    Inherits Window
    Public Sub New(ByVal top As Integer, ByVal left As Integer, ByVal theContents As String)
        MyBase.New(top, left) " 
        mListBoxContents = theContents
    End Sub 
    Public Shadows Sub DrawWindow(  )
        MyBase.DrawWindow(  ) 
        Console.WriteLine("Writing string to the listbox: {0}", mListBoxContents)
    End Sub 
    Private mListBoxContents As String 
End Class
          
      </source>