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

7 lines
159 B
Text
Raw Permalink Normal View History

2013-04-11 01:07:29 -07:00
Private Sub Iterate(ByVal list As LinkedList(Of Integer))
Dim node = list.First
Do Until node Is Nothing
node = node.Next
Loop
End Sub