RosettaCodeData/Task/Singly-linked-list-Traversal/Visual-Basic-.NET/singly-linked-list-traversa...

7 lines
159 B
VB.net

Private Sub Iterate(ByVal list As LinkedList(Of Integer))
Dim node = list.First
Do Until node Is Nothing
node = node.Next
Loop
End Sub