Sure!!!
This works for one item, if you want it for all items just put a loop.Code:Private Sub Form_Load() List1.AddItem GetSetting(App.Title, "Options", "ListBox") End Sub Private Sub Form_Unload(Cancel As Integer) SaveSetting(App.Title, "Options", "ListBox", List1.List(0)) End Sub
If it are alot of items I suggest using a textfile instead, it keeps your registry clean and is easier to manage.




Reply With Quote