Imports System
Imports System.Threading.Interlocked ' Increment & Decrement
Public Class Program
Public Shared Sub Main(ByVal args As String())
Dim a As Integer = 3
Dim b As Integer = 8
Increment(a) ' System.Threading.Interlocked
Decrement(b) ' System.Threading.Interlocked
Console.WriteLine(a & " " & b)
Increment(a)
Decrement(b)
Console.WriteLine(a & " " & b)
End Sub
End Class
' run:
'
' 4 7
' 5 6
'