Попробуй, собрал по сусекам вроде все что необходимо
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
Private Declare Function apiGetFocus Lib "user32" Alias "GetFocus" () As Long
Private Declare Function GetWindowPlacement Lib "user32" (ByVal hwnd As Long, lpwndpl As WINDOWPLACEMENT) As Long
Private Type RECT
Left As Long
Top As Long
Right As Long
Bottom As Long
End Type
Private Type WINDOWPLACEMENT
Length As Long
flags As Long
showCmd As Long
ptMinPosition As POINTAPI
ptMaxPosition As POINTAPI
rcNormalPosition As RECT
End Type
'основной код '
Dim Rectan As RECT
Dim WinEst As WINDOWPLACEMENT
Dim rtn As Long, hWnd As Long
' получаем hWnd актив. окна(контрола)
hWnd = apiGetFocus()
WinEst.Length = Len(WinEst)
'get the current window placement'
rtn = GetWindowPlacement(hWnd, WinEst)
' коорд. окна
Rectan = WinEst.rcNormalPosition
