Declare Function GetBrushOrgEx Lib "gdi32" (ByVal hdc As Long, _ lpPoint As POINTAPI) As Long
GetBrushOrgEx получает базовую точку для кисти в заданном контексте устройства.
' Получим базовую точку кисти для формы Form1 Dim brushorg As POINTAPI Dim retval As Long ' возвращаемое значение ' Получаем базовую точку и его координаты retval = GetBrushOrgEx(Form1.hDC, brushorg) MsgBox "Базовая точка кисти смещена на" & brushorg.x & _ & "пикселов вправо " & "и" & brushorg.y & "пикселов вниз"