[jojogizmojake]

Here is a simple mutex that I coded pretty self explanatory

Declare:

Code

Private check As Mutex

Sub:

Code

Private Sub checkifopen(ByVal mute As String)
  Try
    System.Threading.Mutex.OpenExisting(mute)
    Me.Close()
  Catch ex As Exception
    check = New System.Threading.Mutex(False, mute)
    Exit Sub
  End Try
End Sub

How to Use:

Code

checkifopen("Mutex Here")

[wargod97]

sorry for the noob question but what is a mutex :$?

[grimd34th]

sub is screwed up

Code

Private Sub checkifopen(ByVal mute As String)
  Try
    System.Threading.Mutex.OpenExisting(mute)
    Me.Close()
  Catch ex As Exception
    check = New System.Threading.Mutex(False, mute)
  End Try
    End Sub

fixed

also it would be better if you

Code

Private check As Mutex
Private Sub checkifopen(ByVal mute As String)
  Try
    Messagebox.Show(System.Threading.Mutex.OpenExisting(mute))
    Catch ex As Exception
  check = New System.Threading.Mutex(False, mute)
  messagebox.show(ex.message)
  End Try
End Sub

[jojogizmojake]

sub is screwed up

Code

Private Sub checkifopen(ByVal mute As String)
  Try
    System.Threading.Mutex.OpenExisting(mute)
    Me.Close()
  Catch ex As Exception
    check = New System.Threading.Mutex(False, mute)
  End Try
    End Sub

fixed

also it would be better if you

Code

Private check As Mutex
Private Sub checkifopen(ByVal mute As String)
  Try
    Messagebox.Show(System.Threading.Mutex.OpenExisting(mute))
    Catch ex As Exception
  check = New System.Threading.Mutex(False, mute)
  messagebox.show(ex.message)
  End Try
End Sub

I didnt put message boxes because i didnt want the user to see anything. Oh and you removed exit sub, but it still works with it.