mcs/btests/StructureB.vb

   1 Imports System
   2
   3 Structure S
   4         Dim a as String
   5         Const b as integer = 25
   6
   7         Sub NEW(l as long)
   8         End Sub
   9 End Structure
  10
  11
  12 Module M
  13         Sub Main()
  14                 dim x as S = new S(100)
  15         End Sub
  16 End Module