XObject.RemoveAnnotations(Of T) Method

'Declaration
Public Sub RemoveAnnotations(Of T As Class)

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 = <Root>content</Root>
        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(Of MyAnnotation)()
        Console.WriteLine("Count after removing: {0}", root.Annotations(Of Object)().Count())
    End Sub
End Module

Count before removing: 4
Count after removing: 2