mcs/mbas/Test/errors/ConstructorC4.vb

   1 REM LineNo: 8
   2 REM ExpectedError: BC30480
   3 REM ErrorMessage: Shared 'Sub New' cannot be declared 'Public'.
   4
   5 Imports System
   6
   7 Class A
   8         Public Shared Sub New()
   9                 Console.WriteLine("Shared ctor")
  10         End Sub
  11 End Class
  12
  13 Module M
  14         Sub Main()
  15         End Sub
  16 End Module