mcs/mbas/Test/tests/latebinding/Arguments_ByValueC.vb

   1 Imports System
   2 Module APV1_1_0
   3         Class C
   4                 Sub F(p As String)
   5                         p = "Sinha"
   6                 End Sub
   7         End Class
   8
   9         Sub Main()
  10                 Dim obj As Object = new C ()
  11                 Dim a As String = "Manish"
  12                 obj.F(a)
  13                 if a<>"Manish"
  14                         Throw New System.Exception("#A1, Unexcepted behaviour in string of APV1_1_0")
  15                 end if
  16         End Sub
  17 End Module