synclockb.vb

来自「大名鼎鼎的mono是.NET平台的跨平台（支持linux」· VB 代码 · 共 28 行

'Author:
'   V. Sudharsan ([e-mail])
'
' (C) 2005 Novell, Inc.

Class Test
    Private count As Integer = 0

    Public Function Add() As Integer
        SyncLock Me
            count += 1
            Add = count
        End SyncLock
    End Function

    Public Function Subtract() As Integer
        SyncLock Me
            count -= 1
            Subtract = count
        End SyncLock
    End Function
End Class

Module SyncLockB
    Function Main() As Integer
    End Function
End Module