Sub Listbox_Save(SavePath As String, Lst As ListBox)
'Es: 'ListBox_Save ("c:\windows\desktop\list.lst", list1 ) Dim List As Long On Error Resume Next Open SavePath$ For Output As #1 For List& = 0 To Lst.ListCount - 1 Print #1, Lst.List(Listz&) Next List& Close #1 End Sub |