vb6.0有人能给我一个代码吗

是否可以在列表视图中堆叠项目？我有两个列表视图，第一个视图包含来自MS access的数据，当我单击列表项时，单击的项将传输到第二个列表视图，但当我再次单击同一项时，该项是否可能添加？

此示例假设两个ListBox控件List1和List2位于表单1上

---

你能提到你为此尝试过的任何东西吗？我想说的是，堆栈溢出并不能在没有努力的情况下给我一个代码问题，但像往常一样，有人已经开始回答了

Private Sub Form_Load()

    Dim count As Integer

    Do Until count > 20  ' add items to List1
        Me.List1.AddItem (Format$(count))
        count = count + 1
    Loop

End Sub

Private Sub List1_Click()
    ' when List1 is clicked add the item from List1 to List2
    Me.List2.AddItem Me.List1.Text
End Sub