DupCheck

Sub DupeCheck (iWhat, Lst As ListBox)
Lst.AddItem iWhat
iNew = Lst.List(Lst.NewIndex)
iOld = Lst.List(Lst.NewIndex + 1)
If NameFix(iNew) = NameFix(iOld) Then
Lst.RemoveItem Lst.NewIndex
': form1.F(1) = form1.F(1) + 1

End If
End Sub

Impostare a True la proprieta Sorted