popup menu doesn't work

hi all,

popup menu doesn't work after i added bitmaps to it

any solutions ?

waiting for F.B

thanx on advance

did you use standart microsoft popup menu or some custom activex control?

visit www.vbaccelerator.com they got some great FREE controls including a POPUP control with bitmap option as well as background, dude!

Private Declare Function GetMenu Lib "user32" _
(ByVal hwnd As Long) As Long

Private Declare Function GetSubMenu Lib "user32" _
(ByVal hMenu As Long, ByVal nPos As Long) As Long

Private Declare Function GetMenuItemID Lib "user32" _
(ByVal hMenu As Long, ByVal nPos As Long) As Long

Private Declare Function SetMenuItemBitmaps Lib "user32" _
(ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As _
Long, ByVal hBitmapUnchecked As Long, ByVal hBitmapChecked _
As Long) As Long


Private Sub Form_Load()
Dim lngMenu As Long
Dim lngSubMenu As Long
Dim lngMenuItemID As Long
Dim lngRet As Long

lngMenu = GetMenu(Form1.hwnd)

lngSubMenu = GetSubMenu(lngMenu, 0)

lngMenuItemID = GetMenuItemID(lngSubMenu, 0)

lngRet = SetMenuItemBitmaps(lngMenu, lngMenuItemID, 0, _
Picture1.Picture, Picture1.Picture)

End Sub

Yeah, if you are into the Win32 API stuff to 'soup up' yer programs, you might as well get yer butt to http://www.vbaccelerator.com

they got lots of pretty impressive stuff for free.

:) Jonn

btw

TrackPopupMenu gives you your !*Pop*!



td.

thanx all,
i found the problem and it's fixed now
thanx again