Imports System
Imports System.Text
Imports System.Collections.Generic
Public Class Example
Public Shared Sub Main()
Dim words() As String = {"the", "fox", "jumped", "over", "the", "dog"}
Dim sentence As New LinkedList(Of String)(words)
Dim current As LinkedListNode(Of String) = sentence.FindLast("the")
sentence.AddAfter(current, "AAA")
sentence.AddAfter(current, "BBB")
End Sub
Private Shared Sub Display(ByVal words As LinkedList(Of String))
For Each word As String In words
Console.Write((word + " "))
Next
End Sub
End Class