大师指点：DLL的参数为一个回调函数，VB6可以，VB2005不行。
Public Function BackCallFun(ByVal a As Integer, ByVal b As Integer) As Integer
...
...
End Function

dll申明：

Public Declare Function SetCallBack Lib "DIVERS.dll" (ByVal nBackCallFun As Integer) As Integer

vb6:
dim nResult as integer
nResult = SetCallBack(AddressOf BackCallFun)
成功

vb2005:
dim nResult as integer
nResult = SetCallBack(AddressOf BackCallFun)

“AddressOf”表达式不能转换为“Integer”，因为“Integer”不是委托类型。

请教大虾指点！谢谢！

[解决办法]
Public Delegate Function BackCallFunDelegate(ByVal a As Integer, ByVal b As Integer) As Integer

Public Function BackCallFun(ByVal a As Integer, ByVal b As Integer) As Integer

End Function



Public Declare Function SetCallBack Lib "DIVERS.dll" (ByVal nBackCallFun As BackCallFunDelegate) As Integer

Dim nResult As Integer
nResult = SetCallBack(New myDelegate(AddressOf BackCallFun) )