mcs/btests/NotInheritable.vb

   1 NotInheritable Class C1\r
   2 End Class\r
   3 \r
   4 Module Module1\r
   5     Sub Main()\r
   6         Dim x As New C1()\r
   7     End Sub\r
   8 End Module\r