VB基于API函数实现特殊菜单效果，实现水平展开的两级菜单或三级菜单，或者是带分隔条的菜单。程序调用GetSystemMetrics函数设定菜单高度，利用For循环添加菜单项。