How would i bring this window to the top of all the windows open

Code:
Dim WshShell, oExec
Set WshShell = CreateObject("WScript.Shell")

Set oExec = WshShell.Exec("c:\program files\la3\la3.exe")
intWindowStyle=10
Do While oExec.Status = 0
WScript.Sleep 500
wshShell.SendKeys "%"
wshShell.SendKeys "c"
wshShell.SendKeys "s"