Was ich da vorgeschlagen hab ist Blödsinn!!
Eat this:
Option Public
Option Declare
Declare Private Function apiGetActiveWindow Lib "user32" Alias "GetActiveWindow" () As Long ' Retrieves the active window.
Declare Private Function apiSetWindowPos Lib "USER32" Alias "SetWindowPos" (Byval lng_hWnd As Long, Byval lng_m As Long, Byval lng_left As Long, Byval lng_top As Long, Byval lng_width As Long, Byval lng_height As Long, Byval lng_flags As Long) As Long
Sub Initialize
Dim hwnd As Long
hwnd = apiGetActiveWindow
Call apiSetWindowPos(hwnd, 0, 2, 2, 200, 200, 0)
End Sub
Kleine Einschränkung: Das hat bei mir nur getan, wenn das Fenster nicht komplett maximiert oder minimiert ist. Aber um das zu setzen gibt´s bestimmt auch was.