mcs/mbas/Test/tests/AttributesC.vb

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