Private Sub Command1_Click()
'添加
Combo1.AddItem Text1.Text
Open "D:\combotxt.txt" For Append As #1
'文档地址随意
Print #1, Text1.Text
Close #1
Text1.Text = ""
Text1.SetFocusEnd SubPrivate Sub Command2_Click()
’清除数据
Open "D:\combotxt.txt" For Output As #1
Print #1,