Imports System.Threading

Module Module1
    Sub Execute(ByVal asrr As System.Threading.Mutex, ByVal asz As Boolean)
        Try
            asrr = New System.Threading.Mutex(True, "", asz)

        Catch
        End Try
        ''SC.Start()
        ''PT.Start()
    End Sub
End Module