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))