With the help of Erel's code given
here, I managed to do it myself
Sub CallInProgress As Boolean
Dim r As Reflector, flag As Boolean
r.Target = r.GetContext
r.Target = r.RunMethod2("getSystemService", "audio", "java.lang.String")
Dim mode As Int
mode=r.RunMethod("getMode")
If mode=2 Then flag=True Else flag=False
Return flag
End Sub
In fact with different values of mode, you can get various telephony data
Mode = 0, Normal audio mode: not ringing and no call established.
Mode = 1, Ringing audio mode. An incoming is being signaled.
Mode = 2, In call audio mode. A telephony call is established.
Mode = 3, In communication audio mode. An audio/video chat or VoIP call is established.