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

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