int a ByVal a as long Call func(…,a,…)
long a ByRef a as long Call func(…,byval a,…)
int *pa ByRef pa as long Call func(…,pa,…)
long *pa ByVal pa as long Call func(…,varptr(pa),…) *(1)
char *pstr ByVal pstr as string Call func(…,pstr,…) *(2)
wchar *pstr ByRef pstr as string Call func(…,byval pstr,…)
struct tagX *p ByRef p as tagX Call func(…,ptag,…) *(3)
HANDLE h ByVal h as long Call func(…,h,…) *(4)
注意
1)不推荐使用此方式
2)如果DLL要求一个字符串缓冲区,一定要在调用前初始化字串,即dim t as string * 50