Dim res As Boolean
        Dim Sendkeys As Windows.Forms.SendKeys
        Dim path As String = "E:\Program Files\EA Games\Ultima Online sphere\client.exe"
        Dim arg As String = "client"
        Dim proc As Process

        ' Dim test() As Process = System.Diagnostics.Process.Responding(arg)

        Dim procs() As Process = Process.GetProcessesByName(arg)
        If procs.Length = 1 Then
            Console.WriteLine("found")
            proc = procs(0)
            res = proc.CloseMainWindow()
            System.Threading.Thread.Sleep(5000)
            Process.Start(path)
            System.Threading.Thread.Sleep(5000)
            AppActivate("euox")
            Sendkeys.SendWait("{F9}")

        ElseIf procs.Length = 0 Then
            Process.Start(path)
            System.Threading.Thread.Sleep(5000)
            AppActivate("euox")
            Sendkeys.SendWait("{F9}")
            'End
        End If