100分！关于vb调用delphi编写的dll的问题，急！！！
各位高手赶快帮帮忙。
现在有一个delphi写的dll，函数中有PInteger的返回参数，在delphi中可以正常调用，但是我在vb里写的时候就不知道该怎么来调用了。
请看代码
以下是delphi中的函数定义和调用代码，能正常运行
定义
function CommitCurrentPayCashCardList2(iBillID: Integer; sCashier: PChar; piTransID: PInteger): Integer; stdcall;external 'CRMInterface.dll';
调用
iXPH :integer;
iTransID :integer;
iXPH := strToint(edXPH.Text );
if CommitCurrentPayCashCardList2(iXPH,PChar(edSKY.Text),@iTransID)=1 then
begin
ShowMessage('消费成功');
end
下面是我在vb里写的定义和调用，但是一运行程序就崩溃，请大家快给支招吧，谢谢了。急死我了！
定义
Public Declare Function CommitCurrentPayCashCardList2 _
Lib "CRMInterface.dll" _
(ByVal iBillID As Integer, _
ByVal sCashier As String, _
ByVal iTransID As Long) As Long
调用
iXPH = 1
emplID = "1"
If CommitCurrentPayCashCardList2(iXPH, emplID, VarPtr(iTransID)) = 1 Then
MsgBox "success"
Else
MsgBox "err"
End If
冒是vb和delphi是仇人加对家。
dll是第三方提供的，要跟其他系统有接口的，所以dll不可能是我们自己开发。
没人能解决吗？郁闷郁闷啊
你看看没猩猩来，就是困难或无解。
100分嗷，猩猩的鼻子不会
相关问答：
由于客戶端有的文件經常更新（遠程的，不是局域網），
所以想寫個自動更新的 程序。
看網上的 方法資料，知道些方法，但不知道具體怎么寫。
......
接收到的文本内容是ucs2编码格式，请问怎样转换成中文
按我的理解，UCS-2是字符集，具体的编码有UTF-8，UTF-16 (LE/BE)等。
如果你用Delphi 2009及以上版本，可以看看TEncoding类。
btw. 你说的转换成中文是啥意� ......
看了一些VB ini文件写入读取的方法 但是还是不知道怎么写，上面写了很长 很多，但是我不知道怎么用，我想问一下怎样写才能实现在TEXT1中写字，然后点Command1提交，然后TEXT1里面的数字就写进INI里面[Section]的Key1 ......
为什么工具栏按扭的宽度改变不了,在属性里改了又变成原来的数值了
大胡子真厉害，回答基本都是爆料级的
大胡子升级真快啊，这才几天就5条短裤外加月排名第一了
想想我这5个短裤混了差不多8年才得到的。
回复 ......
我是VB的新成员，现在想用VB来做个TXT文档，请大家给我代码及介绍一下相应的控件！
非常感谢！！！！！！
可以用一些OFFICE控件
google上找一下吧,VB写入TXT,很多样例代码的
直接调查用就可以了
面对美女 ......
