[VB6] Ridimensionamento finestre di Windows

[Dexter1983]

Salve,

avrei la necessità di "dividere lo schermo in due". Cerco di spiegarmi. Con due finestre aperte di cui ricavo l'handle con la Api FindWindow vorrei poterle visualizzare entrambe una sotto l'altra (massimizzate in orizzontale).
Non so se mi sono spiegato.

Come posso fare? Ho pensato alla Api SendMessage, ma non so bene come muovermi (costanti e via dicendo)..
Consigli?

Grazie.

[Dexter1983]

Ho parzialmente risolto così:

Private Declare Function FindWindow Lib "user32.dll" Alias "FindWindowA" ( _
    ByVal lpClassName As String, _
    ByVal lpWindowName As String) 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 Command1_Click()
Dim hWnd As Long, hWnd2 As Long
 hWnd = FindWindow(vbNullString, "Documenti")
 hWnd2 = FindWindow(vbNullString, "VisualBasic")

 MoveWindow hWnd, 0, 0, 1280, 500, True
 MoveWindow hWnd2, 0, 500, 1280, 500, True
End Sub

Vorrei solo sapere a questo punto come posso fare a ricavare le varie impostazioni di larghezza ed altezza senza scriverle io a mano...
Per l'altezza è possibile tenere conto solo dello spazio disponibile barra delle applicazioni esclusa?
Grazie.

***
EDIT: Scusate, per la seconda domanda bastava fare una ricerca nel forum, grazie comunque.
***