3 <AttributeUsage(AttributeTargets.All, AllowMultiple:=True, Inherited:=True)> _
\r
4 Public Class AuthorAttribute
\r
7 Public Sub New(ByVal Name As String)
\r
14 <Author("Robin Cook"),Author("Authur Haily")> _
\r
22 Dim type As Type=GetType(C2)
\r
23 Dim arr As Object()=type.GetCustomAttributes(GetType(AuthorAttribute),True)
\r
24 If arr.Length=0 Then
\r
25 Console.WriteLine("Interface has no attributes")
\r
27 Throw New Exception("AttributesC:Failed-Interfaces should not inherit attributes")
\r