VB调用Delphi动态库dll，和指针问题

dll中的其中函数Function  Myyfzc(secID:integer;water: PChar):integer 在VB 我是这样声明
Private Declare Function Myyfzc Lib "card.dll" (ByVal secID As Integer, Water As string) As Integer
dim i as integer
i=Myyfzc (secID,Water)
怎样都得不到返回值.请高手帮我看看。。小生在此谢过

答案：Private Declare Function Myyfzc Lib "card.dll" (ByVal secID As Integer, Water As long) As Integer 

指针都是long，然后再想办法

其他：你的返回值是指 i得不到，还是water得不到 

上一个：image imagelist 区别 delphi！~~
下一个：求助啊！ 泪洒血啊！ 555 我怎样才能学习好 英语啊！ 我要学习 delphi 7 啊！ 5555 我记忆力差！