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