如何在Visual Basic中使用互斥锁

Imports System.Threading

Dim mutex As New Mutex()

mutex.WaitOne()

mutex.ReleaseMutex()

Imports System.Threading

Module Module1
    Dim mutex As New Mutex()
    Dim counter As Integer = 0

    Sub Main()
        Dim t1 As New Thread(AddressOf IncrementCounter)
        Dim t2 As New Thread(AddressOf IncrementCounter)

        t1.Start()
        t2.Start()

        t1.Join()
        t2.Join()

        Console.WriteLine($"Counter: {counter}")
        Console.ReadLine()
    End Sub

    Sub IncrementCounter()
        For i As Integer = 1 To 10000
            mutex.WaitOne()
            counter += 1
            mutex.ReleaseMutex()
        Next
    End Sub
End Module