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 \r
  17 Module ShadowsD\r
  18     Sub Main()\r
  19         Dim x As New D1()\r
  20         x.F()\r
  21     End Sub\r
  22 End Module\r