mcs/btests/StructureC3.vb

   1 Structure S
   2         Dim a as String
   3         Protected Const b as integer = 10
   4
   5         protected Class c
   6         end class
   7
   8         protected sub f(l as long)
   9         end sub
  10
  11         Protected Structure S1
  12                 dim g as string
  13         End Structure
  14 End Structure
  15
  16 Module M
  17         Sub Main()
  18                 dim x as S
  19         End Sub
  20 End Module