mcs/mbas/Test/tests/MethodDeclarationC.vb

   1 'Author:
   2 '   V. Sudharsan (vsudharsan@novell.com)
   3 '
   4 ' (C) 2005 Novell, Inc.
   5
   6 Imports System\r
   7 \r
   8 Module MethodDeclarationA\r
   9         Function A(ByRef i as Integer)As Integer                         \r
  10                 i = 19\r
  11         End Function\r
  12         Sub Main()\r
  13                 Dim i as String\r
  14                 A(i)\r
  15                 if i<>"19" then\r
  16                         Throw new System.Exception("ByRef not working")\r
  17                 End if  \r
  18         End Sub\r
  19 End Module\r
  20