vb6中listbox中的内容怎么能存储到TXT文本，谢谢，求代码

Private Sub Command1_Click()
    Dim i As Integer
    Open "文件位置" For Output As #2
    For i = 0 To List1.ListCount - 1
        Print #2, List1.List(i)
    Next i
    Close #2
End Sub
竟然是没分的

用 “Text1.Text = Label1.Caption”就行了！