Try
_mutex = New Mutex(False, "Shinchoku")
If _mutex.WaitOne(0, False) = False Then
_doubleCheckFlg = True
Return True
End If
Catch ex As AbandonedMutexException
Try
Dim errMutex As Mutex = ex.Mutex
If errMutex IsNot Nothing Then
errMutex.ReleaseMutex()
End If
_mutex = New Mutex(False, "Shinchoku")
If _mutex.WaitOne(0, False) = False Then
_doubleCheckFlg = True
Return True
End If
Catch ex2 As Exception
Return True
End Try
Catch ex As Exception
Return True
End Try