lo que pedis se soluciona con una bucle y un par de comparaciones, quedaria algo asi:
dim NuevoItem as string 'aca pones el nuevo
item
Dim i as Integer
for i = 0 to ListBox.ListCount -1
if ListBox.List(i) = NuevoItem then
'si el item ya existe lo notifica y sale del procedimiento
msgbox "ya existe"
Exit Sub
end if
next i
'si el item no existe lo agrega
ListBox.additem NuevoItem
zell
|
Microsoft Certified