RosettaCodeData/Task/Doubly-linked-list-Element-insertion/Visual-Basic-.NET/doubly-linked-list-element-insertion.visual

8 lines
204 B
Text
Raw Permalink Normal View History

2013-04-10 22:43:41 -07:00
Public Sub Insert(ByVal a As Node(Of T), ByVal b As Node(Of T), ByVal c As T)
Dim node As New Node(Of T)(value)
a.Next = node
node.Previous = a
b.Previous = node
node.Next = b
End Sub