Private Sub Combo1_Change()Select Case Combo1.Index改成：Private Sub Combo1_Click()Select Case Combo1.ListIndexCombo1的Style属性改为：2 - Dropdown List ，可以让Combo1只能选择，不能修改文本
