XObject.Annotation(T) gets the first annotation object of the specified type from this XObject.
Imports System Imports System.Xml Imports System.Xml.Schema Public Class MyAnnotation Private _tag As String Property Tag() As String Get Return Me._tag End Get Set(ByVal Value As String) Me._tag = Value End Set End Property Public Sub New(ByVal tag As String) Me._tag = tag End Sub End Class Module Module1 Sub Main() Dim ma As MyAnnotation = New MyAnnotation("T1") Dim root As XElement = <Root>content</Root> root.AddAnnotation(ma) Dim ma2 As MyAnnotation = root.Annotation(Of MyAnnotation)() Console.WriteLine(ma2.Tag) End Sub End Module