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

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 POINTAPI
        x As Long
        y As Long
End Type
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