mcs/mbas/Test/errors/PropertyC22.vb

   1 'Author:
   2 '   Satya Sudha K (ksathyasudha@novell.com)
   3 '
   4 ' (C) 2005 Novell, Inc.
   5 '
   6 REM LineNo: 17
   7 REM ExpectedError: BC30237
   8 REM ErrorMessage: Parameter already declared with name 'i'
   9
  10 Imports System
  11 Module M
  12         Dim a As Integer() = {1,2,3}
  13         Property Prop (ByVal i As Integer) As Integer
  14                 Get
  15                         return a(i)
  16                 End Get
  17                 Set (ByVal i As Integer)
  18                         a (0) = i
  19                 End Set
  20         End Property
  21         Sub Main ()
  22         End Sub
  23 End Module