Функция для установки положения объекта - VB

Формулировка задачи:

Есть функция для определения положения объекта:

Private Type RECT
Left As Long
Top As Long
Right As Long
Bottom As Long
End Type
 
Private Declare Function GetWindowRect Lib 'user32' (ByVal hwnd As Long, lpRect As RECT) As Long

А существует ли, такая функция с помощью которой можно установить положение?

Решение задачи: «Функция для установки положения объекта»

textual
                            Листинг программы 
                        

                            'The following two Declare statements must each be entered on a single
'line.
 
Declare Sub movewindow Lib 'USER' (ByVal hwnd%, ByVal x%, _
   ByVal y%, ByVal nwidth%, ByVal nheight%, _
   ByVal brepaint%)
 
Declare Function GetActiveWindow% Lib 'USER' ()
 
Sub WindowResize()
hwnd = GetActiveWindow()
movewindow hwnd, 3, 3, 500, 500, 1
End Sub
                        