I wrote some code to remove repeated items in a list, but the only way I could get it to work is very slow and ineffective for very large lists. Please let me know how I can make this one work better. BTW the variables X and Y were dimmed already in Generals

Restart:
For X = 0 To frmMain.lstURLS.ListCount - 1
For Y = 0 To frmMain.lstURLS.ListCount - 1
DoEvents
If frmMain.lstURLS.List(X) = frmMain.lstURLS.List(Y) And X <> Y Then
frmMain.lstURLS.RemoveItem (Y)
GoTo Restart:
End If
Next Y
Next X

Thanks for taking a look.