mcs/btests/AttributesC.vb

   1 Imports System
   2
   3 <AttributeUsage(AttributeTargets.All, AllowMultiple:=True, Inherited:=True)> _
   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
  11 End Class
  12
  13
  14 <Author("Robin Cook"),Author("Authur Haily")> _
  15 Public Interface C1
  16
  17 End Interface
  18
  19 Public Interface C2
  20      Inherits C1
  21
  22 End Interface
  23
  24 Module Test
  25         Sub Main()
  26
  27         End Sub
  28 End Module