弹出式菜单(加上子菜单)求教高手相助，谢谢！！！

求助高手帮助把附件里的代码修改一下，改为能在任意一级菜单上加上子菜单，谢谢！！！
https://www.vbgood.com/viewthread.php?tid=90543&extra= htt