InterlockedDecrement (Kernel32)

Usage

    Private Declare Function InterlockedDecrement Lib "kernel32" Alias "InterlockedDecrement" (ByRef lpAddend As Integer) As Integer

    Dim a As Integer = 0
    a = InterlockedDecrement(a)
    '' a = -1