请教一个语法转换问题。

我在转换一个算法的时候遇到这样的VB.NET代码，请问各位知道能如何转换为VB6语法下的东西不。

或者那位告诉为一下这些语法的大概意思，谢谢。
Dim fx As Double = P1((P0(CInt(DirectCast((cd.seed Xor xi) And CULng(&HffL), IntPtr))) Xor yi) And &Hff) * 0.00392156862745098

CInt、CULng两个强制类型转换函数一查便知，Xor、And运算符VB6里也有，但IntPtr代表一个指针，这个不好办，必须看它在原代码中指向什么，然后在VB6中使用其它方法模拟指针