Android Question Scanned bluetooth devices appear double

Private Sub Admin_DeviceFound (Name As String, MacAddress As String)
    Log(Name & ":" & MacAddress)
    Dim nm As NameAndMac = CreateNameAndMac(Name, MacAddress)
    If SetOfMacs.Contains(MacAddress) Then Return
     SetOfMacs.Add(MacAddress)
    CLV.AddTextItem($"${nm.Name}: ${nm.Mac}"$, nm)
End Sub

Private Sub Admin_DeviceFound (Name As String, MacAddress As String)
    Log(Name & ":" & MacAddress)
    Dim nm As NameAndMac = CreateNameAndMac(Name, MacAddress)
    CLV.AddTextItem(nm.Name & CRLF & nm.Mac, nm)   
    Dim m As Map
    m.Initialize
    Dim i As Int = 0
    Do While i < CLV.GetSize
        Dim item As String = CLV.GetValue(i)
        If m.ContainsKey(item) Then
            CLV.RemoveAt(i)
            i = i - 1
        Else
            m.Put(item, "")
        End If
        i = i + 1
    Loop
End Sub