Public Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Integer, ByVal bInheritHandle As Integer, ByVal dwProcessId As Integer) As Integer

Private myProcesses As Process()
Private processHandle As IntPtr

If Process.GetProcessesByName("S4Client").Length > 0 Then
            myProcesses = Process.GetProcessesByName("S4Client")
            processHandle = OpenProcess(&H1F0FFF, 0, myProcesses(0).Id)

            If myProcesses.Length = 0 Then
                Exit Sub
            End If

            If processHandle = IntPtr.Zero Then
                Exit Sub
            End If
        End If
    End Sub