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分嗷，猩猩的鼻子不会
相关问答：
已知Python 中：
s = unicode("测试", "gb2312")
s = u'\u6d4b\u8bd5'
print s
测试
在Delphi里面如何将\u6d4b\u8bd5这样的还原成Gb2312的汉字呢？
找到个方法
......
接收到的文本内容是ucs2编码格式，请问怎样转换成中文
按我的理解，UCS-2是字符集，具体的编码有UTF-8，UTF-16 (LE/BE)等。
如果你用Delphi 2009及以上版本，可以看看TEncoding类。
btw. 你说的转换成中文是啥意� ......
VC 控制台程序:
#include <iostream>
using namespace std;
int main()
{
const int def_buffer = 1024 * 4;
DWORD t;
BYTE b[def_buffer];
memset(b, 0, sizeof(b));
PBYTE p;
t = GetTickC ......
我是VB的新成员，现在想用VB来做个TXT文档，请大家给我代码及介绍一下相应的控件！
非常感谢！！！！！！
可以用一些OFFICE控件
google上找一下吧,VB写入TXT,很多样例代码的
直接调查用就可以了
面对美女 ......
