[COLOR=Green]'This code assumes that both ListView1 and ListView2 belong to
'the Controls collection of Form1 (could be a Form, Panel, etc).[/COLOR]
[COLOR=Blue]Dim[/COLOR] alItems [COLOR=Blue]As New [/COLOR] ArrayList
[COLOR=Blue]For Each [/COLOR] ctrl [COLOR=Blue]As[/COLOR] Control [COLOR=Blue]In[/COLOR] Form1.Controls
[COLOR=Blue]Select Case [/COLOR] ctrl.Name
[COLOR=Blue]Case[/COLOR] ListView1.Name
alItems.AddRange(ListView1.[url=http://msdn.microsoft.com/library/default.asp?url=/library/en-us/cpref/html/frlrfsystemwindowsformslistviewclassselecteditemstopic.asp=]SelectedItems[/url])
[COLOR=Blue]Case[/COLOR] ListView2.Name
alItems.AddRange(ListView2.SelectedItems)
[COLOR=Blue]Case Else[/COLOR]
'take default action
[COLOR=Blue]End Select
Next[/COLOR]