mcs/btests/ShadowsA.vb

   1 Class B
   2     Function F()
   3     End Function
   4
   5     Function F(ByVal i As Integer)
   6     End Function
   7
   8     Function F1()
   9     End Function
  10
  11     Function F1(ByVal i As Integer)
  12     End Function
  13 End Class
  14
  15 Class D
  16     Inherits B
  17
  18     Overloads Function F()
  19     End Function
  20
  21     Shadows Function F1(ByVal i As Integer)
  22     End Function
  23 End Class
  24
  25 Module ShadowA\r
  26     Sub Main()
  27         Dim x As D = New D()
  28
  29         x.F()
  30         x.F(10)
  31         x.F1(20)
  32     End Sub\r
  33 \r
  34 End Module\r