mcs/btests/NameSpaceB.vb

   1 Module NSB\r
   2     Sub Main()\r
   3         Dim c1 As ns1.c1 = New ns1.c1()\r
   4         Dim c2 As ns2.c2 = New ns2.c2()\r
   5         If c1.a <> 5 Then\r
   6             Throw New System.Exception("value of ns1.c1.a got changed")\r
   7         End If\r
   8     End Sub\r
   9 End Module\r