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