InterlockedIncrement (Kernel32)

Usage

    Private Declare Function InterlockedIncrement Lib "kernel32" (ByRef Addend As Integer) As Integer
        Dim Addend As Integer
        Addend = InterlockedIncrement(Addend)