Mega Code Archive
ConcurrentStack(T) represents a thread-safe last in-first out (LIFO) collection
Imports System.Collections.Concurrent
Class CS_Singles
Shared Sub Main()
Dim errorCount As Integer = 0
Dim cs As New ConcurrentStack(Of Integer)()
cs.Push(1)
cs.Push(2)
End Sub
End Class