Const FINDWND_CLASS = 2
Const WNDCHANGE_RESIZE_TO_FIT = 1

Set wnd = CreateObject("UltraMon.Window")

wndClass = Array("Winamp v1.x", "Winamp EQ", "Winamp PE", "Winamp MB", "avswnd")
targetLeft = 100
targetTop = 100

For i = 0 To UBound(wndClass)
	If wnd.Find("", wndClass(i), FINDWND_CLASS, 0, 0) = True Then
		If i = 0 Then
			offsetX = wnd.Left - targetLeft
			offsetY = wnd.Top - targetTop
		End If
		
		wnd.Left = wnd.Left - offsetX
		wnd.Top = wnd.Top - offsetY
		wnd.ApplyChanges WNDCHANGE_RESIZE_TO_FIT
	End If
Next