mcs/mbas/Test/tests/ShadowsD.vb

   1 Class B
   2     Public Shared Sub F()
   3     End Sub
   4 End Class
   5
   6 Class D
   7     Inherits B
   8
   9     Private Shared Shadows Sub F()
  10     End Sub
  11 End Class
  12
  13 Class D1
  14     Inherits D
  15 End Class
  16
  17 Module ShadowsD
  18     Sub Main()
  19         Dim x As New D1()
  20         x.F()
  21     End Sub
  22 End Module