Const POS_LEFT = 0
Const POS_TOP = 0
Const WIDTH = 100
Const HEIGHT = 100

Const SHOWSTATE_NORMAL = 2
Set wnd = CreateObject("UltraMon.Window")
If wnd.GetForegroundWindow() = True Then
    wnd.SHOWSTATE = SHOWSTATE_NORMAL
    wnd.Left = POS_LEFT
    wnd.Top = POS_TOP
    wnd.Width = WIDTH
    wnd.Height = HEIGHT
    wnd.ApplyChanges 0
End If