Const SB_GETRECT =(WM_USER + 10)
Сообщение SB_GETRECT получает ограничивающий прямоугольник панели в строке состояния StatusBar
Сообщение SB_GETRECT возвращает True в успешном случае или False в случае ошибки
Const WM_USER = &H400
' Получим координаты второй панели строки состояния
' Установите StatusBar на форме
' (Project-Components-Microsoft Windows Common Controls 5.0(SP2)
Dim R As RECT
SendMessage sb.hWnd, SB_GETRECT, 0, R
With R
Print .Left
Print .Right
Print .Top
Print .Bottom
End With