3 <AttributeUsage(AttributeTargets.All, AllowMultiple:=True)> _
\r
4 Public Class AuthorAttribute
\r
6 Public Name As String
\r
8 Public Sub New(ByVal Name As String)
\r
11 Public Sub New(ByVal Name As Integer)
\r
12 Me.Name=Name.toString()
\r
16 <AttributeUsage(AttributeTargets.All)> _
\r
17 Public Class PublicationAttribute
\r
20 Public Sub New(ByVal Name As String)
\r
27 <Publication("Tata McGraw"),AuthorAttribute("Robin Cook",No:=47),Author(10)> _
\r
29 <Author("John"),Publication("Tata McGraw")> _
\r