Saving ListBox information to a file.?

[Flaw]

Hi, I'm trying to save information inside of a ListBox to a *.txt file.
This is the code im using:

Private Sub cmdSave_Click()
Dim FileName As String
dlgFile.Action = 2
FileName = dlgFile.FileName
F = FreeFile
Open FileName For Output As #F
Print #F, lstPolicy.text
Close #F
End Sub

I can get information in a textbox and label to save to a file but i cant seem to get the right ListBox property to save the lstpolicy information to a file. Can anyone help me?

-Flaw

[Joacim Andersson]

If you want to save all the information in a listbox you can use code simular to this:

Dim n As Long
Dim nCount As Long
Dim sFileName As String
Dim hFile As Integer
 
dlg.ShowSave 'use this instead of the Action property which is depricated
sFileName = dlg.FileName
nCount = List1.ListCount - 1
hFile = FreeFile
Open sFileName For Output As #hFile
For n = 0 To nCount
    Print #hFile, List1.List(n)
Next
Close #hFile

Best regards