Private Items As Map
Items.Initialize
For Each item As String In allItems
clv1.AddTextItem(item,item)
Items.Put(item ,item)
Next
'longclick on selected items will store back
Private Sub clv2_ItemLongClick (Index As Int, Value As Object)
' remove item from map
Items.Remove(Index)
clv1.Clear
For x = 0 To Items.size -1
clv1.AddTextItem(Items.GetKeyAt(x), Items.GetValueAt(x))
Next
End Sub