Declare Function GetWindowRect Lib "user32.dll" (ByVal hwnd As Long, lpRect As RECT) As Long 

Declare Function MoveWindow Lib "user32.dll" (ByVal hwnd As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal bRepaint As Long) As Long 

Платформа: Win  95 / 98 , Win NT 

MoveWindow перемещает окно в новое место. В дополнение к перемещению, эта функция также изменяет размер окна. В случае успеха функция возвращает  1 ,в случае ошибки функция возвращает  0 . 

hwnd
Дескриптор окна. 
x
Координата x вернхнего левого угла окна. 
y
Координата y вернхнего левого угла окна. 
nWidth
Ширина в пикселах для нового окна. 
nHeight
Высота в пикселах для нового окна. 
bRepaint
Если  1 , модифицирует экран, чтобы отобразить окно в его новой позиции. Если  0 , не модифицирует экран, чтобы отразить перемещение (окно, будет кажется, неперемещено, но будет фактически в его новом местоположении!). 
Пример: 

 ' перемещаем окно формы Form1.  Устанавливаем его верхний левый угол в точку (200, 150). 
 ' Устанавливаем новые размеры ширины(175) и высоты(300)  
Dim retval As Long   ' возвращаемое значение 

 ' перемещаем окно и перерисовываем его в новом месте 
retval = MoveWindow(Form1.hWnd,  200 ,  150 ,  175 ,  300 ,  1 )