VB6 调用DLL 错误49 类型不匹配 已解决

没有返回值函数VB6 调用报错误49 ，把声明改成sub 见代码

Private Declare Function SetDllDirectory Lib "Kernel32" Alias "SetDllDirectoryA" (ByVal path As String) As Long
Private Declare Sub ICE_IPCSDK_Init Lib "ice_ipcsdk.dll" ()
Private Declare Sub ICE_IPCSDK_SearchDev Lib "ice_ipcsdk.dll" (ByVal szDevs As String)

Private Sub Form_Load()
Dim i As Long
i = SetDllDirectory("E:\tmp\VB\demo-dll\bin")
Call ICE_IPCSDK_Init
Dim szDevs As String * 256
Call ICE_IPCSDK_SearchDev(szDevs)
Text1.Text = szDevs
End Sub