Useing the AddMenu and AddmenuItem API - Help Please

Hi i need to crate new menus in runtimes and i need some help with the api that does that - any idea please ?

[Tonio169]

first use the API function Getmenu to return the window's menu handle. then, create your own menu items and append them to the windows' menu using the API function
AppendMenu.

Dim hMenu as Long
hMenu = GetMenu(Me.hwnd)
Call AppendMenu(hMenu, MF_STRING, "New Item")

Tnx Dude But - the AppendMenu api - you are missing a pramater [ ByVal lpNewItem As Any]
Can you send me the currect code Tnx ..