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 root As XElement = content
root.AddAnnotation(New MyAnnotation("T1"))
root.AddAnnotation(New MyAnnotation("T2"))
root.AddAnnotation("abc")
root.AddAnnotation("def")
Console.WriteLine("Count before removing: {0}", root.Annotations(Of Object)().Count())
root.RemoveAnnotations(GetType(MyAnnotation))
Console.WriteLine("Count after removing: {0}", root.Annotations(Of Object)().Count())
End Sub
End Module