NoInsertDupe
Private Sub AddUnique(StringToAdd As String, lst As ListBox) lst.Text = StringToAdd If lst.ListIndex = -1 Then 'it does not exist, so add it.. lst.AddItem StringToAdd End If End Sub
Private Sub AddUnique(StringToAdd As String, lst As ListBox)
lst.Text = StringToAdd
If lst.ListIndex = -1 Then
'it does not exist, so add it..
lst.AddItem StringToAdd
End If
End Sub
(noinsertdupe.html)- by Paolo Puglisi - Modifica del 25/3/2019