Esto es un apaño que te puede servir si no empleas la propiedad itemdata. Te voy a preparar un algoritma un poco más 'profesional'. Ya te lo postearé
Código:
Dim r as integer
Dim s as integer
Dim limite as integer
limite=4 'Poner aquí el elemento hasta el que hay que revisar
if limite>list1.listcount-1 then exit sub
for r=0 to limite
for s=0 to limite
if list1.list(r)=list1.list(s) then
list1.itemdata(s)=1
end if
next 's
next 'r
for r=limite to 0 step -1
list1.removeitem(s)
next 'r
Saludos