Dim i As Integer = 0
For Each processo As Process In Process.GetProcesses()
If processo.ProcessName = "Nome do seu aplicativo" Then
i += 1
End If
Next processo
If i = 2 Then
Application.Exit()
End If
O nome do seu aplicativo você obtém ou altera em Solution Explorer / My Project / Application / Assembly Name.
Nenhum comentário:
Postar um comentário