VB中怎么动态设置菜单

先做一个菜单编辑器做菜单时，做一个 菜单 0 号。
然后程序运行里 ，使用 load 进行加载后面项。

如 历史文件 菜单

if 历史文件总数=0 then
   菜单历史(0).caption="无记录"
   菜单历史(0).enabled=falsh
else
   菜单历史(0).caption=历史（1）
   菜单历史(0).enabled=true
   for i=1 to 历史文件总数-2
   load 菜单历史(i)
   菜单历史(i).caption=历史（i+1）
   菜单历史(i).enabled=true   
end if

浏览器手写代码，未经测试，无辅助代码，仅供参考。