mcs/mbas/Test/tests/NotInheritableA.vb

   1 'Author:
   2 '   V. Sudharsan (vsudharsan@novell.com)
   3 '
   4 ' (C) 2005 Novell, Inc.
   5
   6 'Check the working of the Non-Inheritable Class.
   7 'Does Not apply for the Sub classes
   8
   9 Class A
  10         NotInheritable Class B
  11           Sub G()
  12                   End Sub
  13         End Class
  14         Function F()
  15         End Function
  16 End Class
  17
  18 Class C
  19         Inherits A
  20         Public Dim c as A.B=New A.B()
  21 End Class
  22
  23 Module InheritanceN
  24         Sub Main()
  25                 Dim a as C=New C()
  26                 Dim b as A.B=New A.B()
  27                 a.c.G()
  28                 b.G()
  29           End Sub
  30 End Module
  31