help rajeb save setting Litsbox in VB

M-AMIN wrote:

man save setting to vb o codesho hefz nisam vali koliatesh ine k moqe click ro menu stripe save code save o minvisi , moqe form load mosavi listbox items qarar midi .

 tnx dada am nafahmidam

save

Code:

Dim arr As String
For i = 0 To List1.ListCount - 1
arr = arr & "#" & List1.List(i)
Next
Call SaveSetting("esmesoftet", "list", "items", arr)

retrive

Code:

 Private Sub Form_Load()
Dim arr() As String
 arr = Split(GetSetting("esmesoftet", "list", "items"), "#")
For i = 1 To UBound(arr)
 List1.AddItem arr(i)
Next
End Sub

age itemat kheyli ziadan behtare tu file savesh k.o.n.i bad retrive savsetting vase save itemaye kutah khube mese save id va paswordo in chiza
dar zemn tu registry tu in addrs save mishan HKEY_CURRENT_USER\Software\VB and VBA Program Settings

-to properties barname boro ghesmate "setting" unja ie combobox hast neveshte type uno bezan badesh browso entekhab k.o.n 

-az ghesmate browse mscorlib ro bezan az unja ham System.Collection va bad ArrayList ro entekhab k.o.n va ie esm behesh bede masalan mylist 
-save k.o.n 
to dokme save ya evente form closing in codo bezar :
   My.Settings.mylist = New ArrayList(ListBox1.Items)
   My.Settings.Save()
hala to form load in codo ezafe k.o.n :
 Me.ListBox1.Items.AddRange(My.Settings.mylist.ToArray())