有时我们需要保存列表框的内容，如制作播放器的播放文件列表时就须这么做。解决思路可以是这样：利用文本框保存列表框的所有项目。这里以一个实例说明实现方法(要尝试本例，请按源吗添加若干控件，其中TextBox控件的Multiline属性设为True、ScrollBars属性设为2）：
　　
　　Private Sub Form_Load()
　　List1.Clear '清空列表框
　　Text1 = "" '清空文本框
　　End Sub
　　
　　'获取屏幕字体名称并添加到列表框（作用是让列表框有内容）
　　Private Sub cmdFindFonts_Click()
　　Dim fnt As Integer
　　For fnt = 0 To Screen.FontCount - 1
　　List1.AddItem Screen.Fonts(fnt)
　　Next fnt
　　End Sub
　　
　　'将列表框的所有Item添加到文本框
　　Private Sub List1_Click()
　　For Index = 0 To List1.ListCount - 1
　　Text1.Text = Text1.Text & List1.List(Index) & vbCrLf
　　'vbrLf的作用是换行
　　Next Index
　　End Sub
　　
　　'保存
　　Private Sub cmdSave_Click
　　CommonDialog1.Filter = "文本文档(*.txt)|*.txt|所有文件(*.*)|*.*" 
　　CommonDialog1.FilterIndex = 1 
　　CommonDialog1.ShowSave
　　F = CommonDialog1.FileName
　　Open F For Output As #1
　　Print #1, Text1.Text
　　Close #1
　　End Sub
　　
　　这样，列表框的全部项目就可以保存下来了。
　　
　　如果仅保存列表框的部分内容，可在List1的Click事件加入以下代码：
　　
　　Dim i As Integer
　　i = i + List1.ListIndex
　　Text1.Text = Text1.Text + List1.List(Index + i) + vbCrLf
　　
　　本例在PWin98、VB6.0环境下调试通过。