我编写的内容如下
Private Sub Combo1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Combo1.AddItem Combo1.Text
Combo1.Text = ""
End If
End Sub

Private Sub List1_Click()
Combo1.AddItem List.Text
List1.RemoveItem List.ListIndex

End Sub
题目要求，在组合框中的文本框输入内容，回车后，组合框的内容转移到列表框中，单击列表框中的内容，内容转移到组合框中。

Option Explicit
Private Sub Combo1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
List1.AddItem Combo1.Text
Combo1.Text = ""
End If
End Sub

Private Sub List1_Click()
Combo1.AddItem List1.Text
Combo1.Text = List1.Text
List1.RemoveItem List1.ListIndex
End Sub