mcs/btests/ModuleA.vb

   1 REM LineNo: 17
   2 REM ExpectedError: BC31066
   3 REM ErrorMessage: Method in a Module cannot be declared 'Protected' or 'Protected Friend'.
   4
   5
   6 Module ClsModule
   7         Sub New()
   8         End Sub
   9
  10         Public a As Integer
  11         Public Const b as integer = 10
  12
  13         Class C1
  14         End Class
  15
  16         ' inherited members can be declared as protected
  17         protected Sub Finalize()
  18         end sub
  19 End Module
  20
  21 Module MainModule
  22         Sub Main()
  23                 ClsModule.a=20
  24         End Sub
  25 End Module