下面代码是将combo中的内容一行行转进list，如果不是你要的效果，可以自行修改For i = 0 To Combo1.ListCount-1List1.List(i) = Combo1.List(i)Next刚才有点小错，少了个字母，现加上
Private Sub Combo1_Click()List1.AddItem Combo1.TextEnd Sub
