请教：如何将listbox 显示的内容复制到 一个TXT 文件中，说明见详。

Question

目的说明：1、已经有 list1 ,并且有多行数据
2、已经创建一个command 按钮要求，通过 command 按钮，可以将 list1 中的内容复制到内存中，自己打开一个 txt 文件，在txt文件中选择粘贴，可以将 list1 中的内容复制到 txt 中。谢谢大家的支持。

Answer 1

Private Sub Command1_Click()
Dim i As Integer
Open "<你的文本文件>.txt" For Output As #1
For i = 0 To List1.ListCount - 1
    Print #1, List1.List(i)
Next i
Close #1
End Sub

Answer 2

一定要复制粘贴的话：
Private Sub Command1_Click()
Dim i As Integer, strText As String
For i = 0 To List1.ListCount - 1
    strText = strText & IIf(strText = "", "", vbCrLf) & List1.List(i)
Next i
ClipBoard.SetText strText
End Sub