高分悬赏！急！delphi开发的动态库（参数shortstring类型）在vb中如何调用！

Question

function DataBasePW(var UserID:ShortString; var UserCode:ShortString): Integer
function databasepw(byval userid as string ,byval usercode as shortstring)as integer如果不是activex dll等
就要这样：
declare function databasepw lib "you dll path and filename" (byval userid as string ,byval usercode as shortstring)as integer
'注意：需要修改大小写（主要是函数名，可能对这个敏感，特别是c写的）

Answer 1

错了byval usercode as shortstring应该是
byval usercode as string

Answer 2

关注:
我在vc做的dll中定义了结构：
typedef a{
  int num
  bool bnum
}
输出函数: myfunc(a *temp)
-----------------------
再VB中：
type a
  num as integer
  bnum as boolean
end type
dim tmp as a
请问再vb中怎么调用 是不是myfunc（varptr(tmp)）这样？
而且之后，要用到tmp变量
怎么做？