mcs/btests/AttributesC6.vb

   1 Imports System\r
   2 \r
   3 'Using byref positional parameters\r
   4 \r
   5 <AttributeUsage(AttributeTargets.All)> _\r
   6 Public Class AuthorAttribute \r
   7      Inherits Attribute\r
   8         Public Name\r
   9         Public Sub New(ByRef Name As String)\r
  10                 Me.Name=Name\r
  11         End Sub \r
  12 End Class\r
  13 \r
  14 \r
  15 <Author("Robin Cook")> _\r
  16 Public Class C1\r
  17         \r
  18 End Class\r
  19 \r
  20 Module Test\r
  21         Sub Main()\r
  22 \r
  23         End Sub\r
  24 End Module\r