Question

将DLL文件复制到VB工程目录下，只能用绝对地址，不能用默认地址调用。。

绝对地址调用可以：Public Declare Function SI_GetNumDevices Lib "F:\工作--code\TestUSB\SiUSBXp.dll" (ByRef lpwdNumDevices As Long) As Integer
默认不行显示找不到文件：Public Declare Function SI_GetNumDevices Lib “SiUSBXp.dll" (ByRef lpwdNumDevices As Long) As Integer

Answer 1

当然找不到。系统默认dll文件存放在windows\system32目录中，找时也是从那里找的。
你可以用Regsvr32注册后再使用就行了（注册一次就行了，不用每次都注册）
用法 Regsvr32 /s F:\工作--code\TestUSB\SiUSBXp.dll
若不加/s 会出现一个提示，加上/s则不会出现提示

追问

你能不能用VB程序将dll文件注册。

追答

最好不要在程序中注册，因为在程序中每次运行都会注册一次。

VB 语句：
shell "Regsvr32 /s F:\工作--code\TestUSB\SiUSBXp.dll"