mcs/btests/ModuleA.vb

   1
   2 Module ClsModule
   3         Sub New()
   4         End Sub
   5
   6         Public a As Integer
   7         Public Const b as integer = 10
   8
   9         Class C1
  10         End Class
  11
  12         ' inherited members can be declared as protected
  13         protected Sub Finalize()
  14         end sub
  15 End Module
  16
  17 Module MainModule
  18         Sub Main()
  19                 ClsModule.a=20
  20         End Sub
  21 End Module