如何获得程序本身某个窗体上的全部菜单列表

获取程序本身窗体上的全部菜单
Private Sub Form_Load()
　　Dim AllMenus As Object
　　Me.AutoRedraw = True
　　For Each AllMenus In Me.Controls
　　　　If TypeOf AllMenus Is Menu Then Print AllMenus.Caption
　　Next
End Sub