增加下拉菜单选项(新增text1的内容到combo1)combo1.additem text1.text切换frame用比较简单的语句加以说明Private sub combo1_change()frame1.visible=falseframe2.visible=trueend sub
Combo1.AddItem 项目 '用于向单选框添加项目