>Hi
>Thank you so much for your code
>Did You examine that yourself?
>when i want to use that it return this error : Type Mismatch
>at this line
>

>lvRet = ThisForm.oform.kdphone1.GetLineCaps(ThisForm.combo1.ListIndex, @lvLineCaps) && Geting LineCaps
>

No, I am not puting it in a form and use Combo for that. I just make:

oPhone = CREATEOBJECT("KDTele.KDPhone") && Or whatever is the name (I don't remembr, I did this in the office :o)))
lcCaps = 0
oPhone.GetLineCaps(0,@lcCaps) && W/o any errors.

Maybe the line number is Zero based, not sure. Try

lvRet = ThisForm.oform.kdphone1.GetLineCaps(ThisForm.combo1.ListIndex-1, @lvLineCaps) && Geting LineCaps