Getting list of Menu/Items at runtime

Is it possible to get a list of the menu options I have defined in my program at runtime.

option Explicit

private Sub Command1_Click()
Dim ctl as Control
for Each ctl In me.Controls
If TypeOf ctl is Menu then
Debug.print ctl.Name
Debug.print ctl.Caption

End If
next
End Sub





Special thanks to Lothar "the Great" Haensler, Tom Archer, Chris Eastwood, TCartwright,Bruno Paris
and all the other wonderful people who made and make Codeguru a great place.
Come back soon, you Gurus.

The Rater

You could use the EventVB.dll - it has an ApiMenu object that you can enumerate through programatically...see:
http://www.merrioncomputing.com/Even..._Submenus.html

HTH,
Duncan

-------------------------------------------------
Ex. Datis: Duncan Jones
Merrion Computing Ltd
http://www.merrioncomputing.com
Check out the new downloads - ImageMap.ocx is the VB control that emulates an HTML image map, EventVB.OCX for adding new events to your VB form and adding System Tray support simply, MCL Hotkey for implemenmting system-wide hotkeys in your application...all with source code included.

Many Thanks