Hard to answer without knowing what you are doing exactly.
OK, I will post my code soon...
cnt = 0 For Each c As cuContact In cu.FindContactsByName(cntcsNm, False, False) cnt = cnt + 1 phonecounter = True Label1.Text = Label1.Text & CRLF & CRLF & cnt & ". " & c.DisplayName & "." For Each phone As cuPhone In cu.GetPhones(c.Id) If phonecounter Then phoneList.Add(phone.Number) phonecounter = False End If Next Dim p As PhoneCalls p.Call(phoneList.Get(0))
Oh, I meant that the contact is duplicated in my contacts, not as viewed in the list.
This is also can help in this situation?