'Deklaration
Private Declare Function GetSystemMetrics Lib "user32.dll" (ByVal nIndex As _
  Long) As Long 
Private Const SM_CYMENUSIZE = 55
 
'Ergänzung in Command_Click
Dim nMenuBarHeight As Long
nMenuBarHeight = GetSystemMetrics(SM_CYMENUSIZE)
 
'Diese Zeile ersetzen:
nResult = TrackPopupMenu(ByVal hSubMenu, lFlags, .left, .top + 18, 0&, Me.hWnd, _
  0&)
'durch
nResult = TrackPopupMenu(ByVal hSubMenu, lFlags, .left, .top + nMenuBarHeight, _
  0&, Me.hWnd, 0&)