vb调用api 函数声明及引用问题，

Question

有1 API函数说明文档如下：API函数：bool ReadPathData(WORD AShortID, BYTE ATrackID, float * Buffer,int Index,
Int Num,int * NumReaded);
参数说明：
AShortID: 设备ID
ATrackID: 通道ID,从0 开始计数
Buffer: 指向单精度浮点数的指针
Index: 该通道超始位置，-1 表示从队列中末尾往前取数
Num:点数量
NumReaded:实际读取点数量
返回值： 成功返回 TRUE
失败返回 FALSE在模块中声明语句（我自己写的可能有点问题）：
Declare Function ReadPathData Lib "D:\BeeDataDll\BeeDataComm.dll" (ByVal NODEID As Integer, ByVal ChanNum As Byte, ByRef Buffer As Single, ByVal index As Long, ByVal Num As Long, ByRef NumReaded As Long) As Boolean我想知道正确的模块声明语句，及在运行中调用问题。望高手指教。谢谢。

Answer 1

模块中 
Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
窗体中调用SetWindowPos Me.hwnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE

Answer 2

 指向单精度浮点数的指针要定义成Long型