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

8 lines
204 B
Plaintext

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