Как узнать высоту меню?

[Pantalone]

Хочу засунуть на задний фон верхней полоски меню картинку из Picturebox.
Узнаю ее таким образом: ScaleY(GetSystemMetrics(SM_CYMENU), vbPixels). Далее устанавливаю высоту Picturebox такого же размера, рисую рисунок в Picturebox и пытаюсь это засандалить в меню. Но получается что картинка начинает отрисовываться где-то чуть выше меню в невидимой области, в результате она не дорисовывается по всей высоти и внизу начинает рисоваться заново, получается типа поехавшая развертка.
Как быть.

[Viper]

Так у границы формы есть размер, у заголовка есть размер...

Кстати, в какой позиции ты собственно пытаешься рисовать?

[Pantalone]

Вот так вот пытаюсь пикчабокс в меню затолкать на задний фон:

Dim mi As tagMENUINFO
mi.cbSize = Len(mi)
mi.fMask = MIM_BACKGROUND
mi.hbrBack = CreatePatternBrush(Picture1.Image)
SetMenuInfo GetMenu(hwnd), mi
DrawMenuBar hwnd