Obtener el Tamaño de una Ventana con APIs

[Siliconplus]

Estimados...
Necesito saber el tamaño de una ventana con las APIs.   Estoy programando un VB6.  y resulta que necesito saber el tamaño de la primera ventana que esta activa (al tope), sus dimensiones y posicion (x,y, Width, Height) :shock: y compararla con la proxima que voy a abrir, si son iguales entonces las coordenas (de la nueva) le agrego unos pixeles mas parar abajo y a la izquierda de modo que se vea estilo cascada.
No sirve el form.Width ni Height pues no sé cual es la que esta al tope...

Plis.. F1, F1, F1....

 :lol:

[[EX3]]

Echa un vistazo a este codigo:

Código [Seleccionar] Expand

Type RECT
   Left As Long
   Top As Long
   Right As Long
   Bottom As Long
End Type

Declare Function GetWindowRect Lib "user32" Alias "GetWindowRect" (ByVal hwnd As Long, lpRect As RECT) As Long
Declare Function GetActiveWindow Lib "user32" Alias "GetActiveWindow" () As Long

Código [Seleccionar] Expand

Dim wSize As RECT

Call GetWindowRect(GetActiveWindow(), wSize)
Salu2...

[Siliconplus]

Gracias... Simple, concreto y efectivo.  
:D