Save a list box

I have a list (list1) and I want to save it via a CommonDialogue, but I only know how to save a text from a text box.

Can anybody help me how to save the items of a list box (in VB3) ?????

Thanx

here you go:

Code:

---

Dim i As Integer
Dim fnum As Long

fnum = FreeFile
Open "C:\list.txt" For Output As fnum
  For i = 0 To List1.ListCount - 1
    Print #fnum, List1.List(i)
  Next i
Close fnum

---

------------------
Mark Sreeves
Analyst Programmer

[email protected]
A BMW Group Company