Thanks ;
Code it works, but does not save the Value list.
I have this code and it works, but equal, does not save the Value list when I close the form.
Private Sub moveBetweenLists(lstBoxFrom As Access.ListBox, lstBoxTo As Access.ListBox)
On Error GoTo err_list
Dim counter As Integer...