Private Sub RPCVerify()
    'Test the RPC property.

    Debug.Assert Approx(RPC, PI / 2)
    Debug.Assert Approx(RPC, Atn(1#) * 2)
    Debug.Assert Approx(RPC, 1.5707963267949)
End Sub