/
/

Msgbox(Listbox1.Items.count)
Dim olditems as integer=7
Sub Button1_click
Listbox1.items.add("XXX")
Listbox1.items.add("XXX")
Listbox1.items.add("XXX")
Listbox1.items.add("XXX")
Msgbox ("Number of new items added: " & Listbox1.items.count - olditems)
End Sub


listbox3.items.clear For each item as string in listbox2.items if not listbox1.items.contains(item) then listbox3.items.add(item) end if next