我在做一个接口，接口文档要求是登陆函数 f_comm_login(in,out) 
但是我在VB里调用的时候，只要调用该函数就出错，错误提示 visual basic遇到问题需要关闭，我们对此引起的不便请原谅

我调用的方法是
在类模块里声明
以下是声明API
Public Declare Function f_comm_login Lib "Anyinterface82.dll" (ByVal czy_id As String,Byval czy_name as string) As long
public Declare Function f_comm_geterrormsg Lib "Anyinterface82.dll" (byval e_in as string ,byval e_out as string) As long


以下是声明变量

dim error_in as string                     错误函数入口参数
dim error_out as string *5000              出口参数
dim error_return as long                   返回值



dim log_czy_id as string                    操作员ID号
dim log_czy_name as string                  操作员姓名

dim log_czy_xx_in as string                 登陆函数入口参数
dim log_czy_xx_out as string *5000          出口参数
dim log_czy_xx_return as long               返回值

log_czy_id=trim(text1.text)                 ID号
log_czy_name= trim(text2.text)              姓名

log_czy_xx_in=log_czy_id+"|"+log_czy_name

开始调用

log_czy_xx_return= f_comm_login(log_czy_xx_in,log_czy_xx_out)
if log_czy_xx_return= 0 then  
正常登陆
else
error_in=log_czy_xx_return
error_return=f_comm_geterrormsg(error_in,error_out)
msgbox error_out
注意（msgbox 显示的是空值，确定后就出错了）
end if