With ThisForm nListCount = .lstSelect.ListCount For I = 1 To nListCount .lstSelected.AddItem (.lstSelect.List (1)) .lstSelect.RemoveItem (1) EndFor EndWith