Позиционирование размера/положения окна чужого процесса

Private Type RECT
        Left As Long
        Top As Long
        Right As Long
        Bottom As Long
End Type
Private Declare Function CopyRect Lib "user32" (lpDestRect As RECT, lpSourceRect As RECT) As Long
Private Declare Function GetWindowRect Lib "user32" (ByVal hwnd As Long, lpRect As RECT) As Long
Private Sub Form_Load()
   Dim rectWindow As RECT
       GetWindowRect Me.hwnd, rectWindow
      MsgBox "Координаты: X=" & Str$(rectWindow.Left) & " Y = " & Str$(rectWindow.Top)
End Sub

Private Declare Function IsWindowEnabled Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function MoveWindow Lib "user32" (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
Private Sub Form_Load()
     Dim bl As Boolean
    'Is the window enabled?
    bl = IsWindowEnabled(Me.hwnd)
      'Move the window
   If bl = True Then
          MoveWindow Me.hwnd, 0, 0, 200, 200, 1
    End If
End Sub

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
hwnd = FindWindow(vbNullString, "Командная строка")

hwnd = FindWindow("OpusApp", vbNullString)

Private Declare Function ShowWindow Lib "user32.dll" (ByVal hWnd As Long, ByVal nCmdShow As Long) As Long