'form2的窗体模块
Option Explicit

Private Sub Command1_Click()
        Dim i As Integer
        For i = 0 To Form1.List1.ListCount - 1
            Form2.List1.AddItem Form1.List1.List(i)
        Next
End Sub