Sure!!!


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
This works for one item, if you want it for all items just put a loop.

If it are alot of items I suggest using a textfile instead, it keeps your registry clean and is easier to manage.