mcs/mbas/Test/tests/AttributesA.vb

   1 Imports System
   2 'Ommiting AttributeUsage attribute
   3
   4 Public Class AuthorAttribute
   5      Inherits Attribute
   6         Public Name
   7         Public Sub New(ByVal Name As String)
   8                 Me.Name=Name
   9         End Sub
  10         Public ReadOnly Property NameP() As String
  11                 Get
  12                         Return Name
  13                 End Get
  14         End Property
  15 End Class
  16
  17
  18 <Author("Robin Cook")> _
  19 Public Class C1
  20         <Author("John")> _
  21         Public Sub S1()
  22         End Sub
  23
  24 End Class
  25
  26 Module Test
  27         Sub Main()
  28
  29         End Sub
  30 End Module