Imports System Namespace NS1 Module M Dim a As Integer=20 Sub Main() End Sub End Module End Namespace