Открыть форму относительно положения курсора на листе

[ольгаг]

Здравствуйте Уважаемые программисты!
Помогите пожалуйста исправить код ниже (vba excel 2003 и 2007), который позволяет по щелчку по кнопке на Листе (кнопка - это рисунок с назначенным макросом) открыть форму относительно клика по этой кнопке.
Макрос ниже работает, но проблема в том, что периодически после клика по кнопке, форма открывается в ином месте (значительно ниже кнопки). Как правило, это смещение положения происходит при первом клике по кнопке, при втором и последующих кликах открывается как положено, рядом с кнопкой.
Спасибо!

В стандартном модуле:

Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As Long
Declare Function GetDeviceCaps Lib "Gdi32" (ByVal hDC As Long, ByVal nIndex As Long) As Long
Declare Function ReleaseDC Lib "user32" (ByVal hwnd As Long, ByVal hDC As Long) As Long

Const LOGPIXELSX = 88
Const LOGPIXELSY = 90

Public Type tCursor
    left As Long
    top As Long
End Type

Private Declare Function GetCursorPos Lib "user32" (p As tCursor) As Long

Public Function pointsPerPixelX() As Double
    Dim hDC As Long
    hDC = GetDC(0)
    pointsPerPixelX = 72 / GetDeviceCaps(hDC, LOGPIXELSX)
    ReleaseDC 0, hDC
End Function

Public Function pointsPerPixelY() As Double
    Dim hDC As Long
    hDC = GetDC(0)
    pointsPerPixelY = 72 / GetDeviceCaps(hDC, LOGPIXELSY)
    ReleaseDC 0, hDC
End Function

Public Function WhereIsTheMouseAt() As tCursor
    Dim mPos As tCursor
    GetCursorPos mPos
    WhereIsTheMouseAt = mPos
End Function

Public Function convertMouseToForm() As tCursor
    Dim mPos As tCursor
    mPos = WhereIsTheMouseAt
    mPos.left = pointsPerPixelY * mPos.left
    mPos.top = pointsPerPixelX * mPos.top
    convertMouseToForm = mPos
End Function

В модуле формы:

Private Sub UserForm_Initialize()
   Dim mPos As tCursor
   mPos = convertMouseToForm
   With Me
      .StartUpPosition = 0
      .left = mPos.left
      .top = mPos.top
   End With
End Sub

[doober]

Перенисите код в событие активации формы.

Private Sub UserForm_Activate()
  Dim mPos As tCursor
   mPos = convertMouseToForm
  '' Debug.Print mPos.left
  '' Debug.Print mPos.top
  With Me
      .StartUpPosition = 0
      .left = mPos.left
      .top = mPos.top
   End With
End Sub

[ольгаг]

Спасибо, но также при первом запуске форма при открытии съезжает значительно вниз относительно клика по кнопке.
Как будто при открытии формы берутся в расчет зоны меню и панелей. А при следующих кликах нет.