在VB.NET 2003版中用ocx发送接收FSK数据时需涉及到指针操作，下面以发送和接收一段FSK数据说明在VB.NET中操作指针的方法

◆　发送FSK数据
　　Dim p As IntPtr
　　Dim SendFskData(8) As Byte
　　Dim SendFskDataLen As Byte = 8
　　SendFskData(0) = 1
　　SendFskData(1) = 2
　　SendFskData(2) = 3
　　SendFskData(3) = 4
　　SendFskData(4) = 5
　　SendFskData(5) = 6
　　SendFskData(6) = 7
　　SendFskData(7) = 8
　　p=System.Runtime.InteropServices.Marshal.UnsafeAddrOfPinnedArrayElement
　 (SendFskData，0)
　　PCICARD1.L1Media(CHTYPE_AGENT， 0， F_MEDIA_Tx_Memory，RESPAR_PFIRSTMSG
　　OrRESPAR_PLASTMSG， _ RESTYPE_FSK， 0， ““， p.ToInt32，
　　SendFSKDataLen)

◆　接收FSK数据，在ocx的MediaEvent事件中收FSK数据可用如下的程序将FSK数据读到
　　RecvFskData中
　　Dim myp As IntPtr
　　Dim RecvFskData(256) As Byte
　　myp = IntPtr.op_Explicit(e.lData)
　　System.Runtime.InteropServices.Marshal.Copy(myp，
　　RecvFskData， 0， e.dataLen)