mcs/btests/AttributesA.vb

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