Dim oShell
Dim titel_kladb, titel_paint

titel_kladb = “Naamloos - Kladblok”
titel_paint = “naamloos - Paint”
set oShell=WScript.CreateObject(”WScript.Shell”)
oShell.Run “mspaint.exe”
WScript.Sleep 800
oShell.Run “notepad.exe”
WScript.Sleep 800
oShell.AppActivate titel_paint

WScript.Sleep 3000
oShell.AppActivate titel_kladb