在VB中怎么遍历菜单？大虾请进……！

Question

我在Form窗体上建了几项菜单。
主菜单   | 文件 | 编辑 |
子菜单   | 打开 | 粘贴 |
我用什么方法可以对菜单进行遍历。遍历顺序：文件、打开、编辑、粘贴
并得到菜单每项的（标题和名称）。
会的大虾们请贴出原码，谢谢。

Answer 1

Private Sub Command1_Click()
 Dim mnu As Object
 For Each mnu In Me.Controls
    If TypeOf mnu Is Menu Then
       Print mnu.Name,
       Print mnu.Caption
    End If
 NextEnd Sub

Answer 2

楼上 lwzlemon(stone) 请说清楚点？
怎么用Mark来判断这项菜单是主菜单而不是子菜单？