Namespace NS1
	Dim a As Integer
	Module NamespaceTest
		Sub Main()
		End Sub
	End Module
End Namespace