APPS = Array("Untitled - Notepad", "Realtime Soft - Windows Internet Explorer") 'window caption of the applications you want to activate
Const INTERVAL = 2 'interval in seconds between window activations

Set sh = CreateObject("WScript.Shell")
Do While True
	For i = 0 To UBound(APPS)
		WScript.Sleep INTERVAL * 1000
		sh.AppActivate APPS(i)
	Next
Loop