APPS = Array("Untitled - Notepad", "Calculator") 'window captions of the applications which should get rotated
Const INTERVAL = 5 'interval between rotations in seconds

Const FINDWND_TITLE = 1
Const MOVEMONITOR_NEXT = -1
Const WNDCHANGE_CLIP_TO_WORKSPACE = 2
Set wnd = CreateObject("UltraMon.Window")
Do While True
    WScript.Sleep INTERVAL * 1000
    
    For i = 0 To UBound(APPS)
        caption = APPS(i)
        If wnd.Find(caption, "", FINDWND_TITLE, 0, 0) = True Then
            wnd.Monitor = MOVEMONITOR_NEXT
            wnd.ApplyChanges WNDCHANGE_CLIP_TO_WORKSPACE
        End If
    Next
Loop