mcs/mbas/Test/tests/MethodDeclarationF.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         Sub A1 ( ByVal ParamArray j() as Date )                 \r
  10                 Dim i as Date\r
  11                 For each i in j\r
  12                 Next i\r
  13         End Sub\r
  14         Sub Main()\r
  15                 Dim ar as Date() = {}\r
  16                 A1(ar) \r
  17         End Sub\r
  18 End Module\r
  19