Clearing a multi delect list box

[indesisiv]

I am sure that i this is a morning problem but,

How do i clear a multi select list box as i move on to the next record??
Also is there a way of keeping the selection. ie it is saved into a text box as it is added but i want the list box to pick up the selection when i get back to the record.

Is this possible

 

[Fizzio]

Code to clear all values

1.
Dim intX As Long
'Deselect all listbox values
For intX = 0 To me.Nameoflistbox.ListCount - 1
Me.Nameoflistbox.Selected(intX) = False
Next intX

2.
See here
for a good example from Mile-O-Phile