Placing popupmenus into other programs -

Public Declare Function CreatePopupMenu Lib "user32" () As Long

Public Sub CreateMenu(wnd As String, MnuCap As String, Mnuitem As String)
'Thanks for downloading my example, please vote!
'e-mail me at itzmunky@hotmail.com for more
Dim NewMenu As Long, FndWindow As Long, FndWindowMenu As Long
NewMenu = CreatePopupMenu
FndWindow = wnd ' Menu to Add to
'this is where you can add sub menus to the menu you create
'you can add as many as you like
Call AppendMenu(NewMenu, MF_ENABLED Or MF_STRING, 0, Mnuitem) 'You can also add as many items as you want
Call AppendMenu(NewMenu, MF_ENABLED Or MF_STRING, 1, "Test2")
'this is the min menu
FndWindowMenu = GetMenu(FndWindow)
Call AppendMenu(FndWindowMenu, MF_POPUP, NewMenu, MnuCap)
End Sub