mcs/btests/ShadowsC1.vb

   1 Class B
   2     Function F()
   3     End Function
   4
   5     Function F(ByVal i As Integer)
   6     End Function
   7
   8
   9     Function F(ByVal i As String)
  10     End Function
  11 End Class
  12
  13 Class D
  14     Inherits B
  15     ' all other overloaded methods should become unavailable
  16     Shadows Function F()
  17     End Function
  18 End Class
  19
  20 Module ShadowA_C1\r
  21     Sub Main()
  22         Dim x As D = New D()
  23         x.F(10)
  24         x.F("abc")
  25     End Sub\r
  26 \r
  27 End Module\r
  28 \r