Structure S Dim a as String Protected Const b as integer = 10 protected Class c end class protected sub f(l as long) end sub Protected Structure S1 dim g as string End Structure End Structure Module M Sub Main() dim x as S End Sub End Module