what is the formula in vb6 of arc cosine in degrees??
thnk you!
 Function ACos(ByVal number As Double) As Double

If Abs(number) <> 1 Then

ACos = 1.5707963267949  Atn(number / Sqr(1  number * number))

ElseIf number = 1 Then

ACos = 3.14159265358979

Elseif number=1 Then

Acos=0

End if

End Function
It is returned in radians. To convert
Acosdeg = number*180/PI