Через это API:
Declare Function GetWindowRect Lib "user32" (ByVal hwnd As Long, lpRect As RECT) As Long
Public Type RECT
Left As Long
Top As Long
Right As Long
Bottom As Long
End Type
Передаешь hwnd CommandButton - получаешь прямоугольник кнопки.

Только в пикселях, а не твипах.
Чтоб перевести в твипы, используй функции
screen.TwipsPerPixelX и screen.TwipsPerPixelY
как коефициенты перевода.
