Dim p1 As New ProcessStartInfo("C:\AbbyyAPI\AbbyyAPI.exe") p1.Arguments = """C:\AbbyyAPI\Small.xml""" Timeout = 3600000 Dim PWait1 As Process PWait1 = Process.Start(p1) PWait1.WaitForExit(Timeout) If PWait1.HasExited = False Then PWait1.Kill() Else End If