VB加载DLL中遇到的问题 - VB / API

我用VB加载一个DLL，在“工程==〉引用”引用这个DLL的时候，显示该DLL不能加载could not be loaded
如果直接运行Private Declare Function RDBPointQuery Lib "C:\WINDOWS\system32\MACSVIDBCom.dll" (ByVal pQueryFlag As PointQueryFlag, ByRef lPNum As Long, ByRef PNameArr() As String_struct, ByVal lDomainNo As Long) As Long
则会报编译出错：'user-defined type not defined',请问是什么原因？

---

错误是：用户定义类型未定义。
dll不能引用，这很正常，表示该DLL有可能是标准的，不通通过引用调用，只能通过Declare声明调用。
编译出错的原因有可能是类型PointQueryFlag、String_struct没有定义。还有你那些ByVal,ByRef要斟酌一下。

---

PointQueryFlag、String_struct可能需要自己定义一下，你需要查找一下里面包含哪些数据类型，然后类似下面方法定义：
Public Type PointQueryFlag
  a As Integer
  b As Integer
  rcv_dg_outstanding As Integer
  rcv_any_outstanding As Integer
End Type

---

用户类型定义的问题解决了，谢谢两位。然后我运行以下代码时
--------------------------------------
Private Sub Command1_Click()
Dim pQueryFlag As pointqueryflag
Dim lPNum As Long
Dim PNameArr(10) As String_struct
Dim PointNam(10) As String_struct
pQueryFlag.BSDes = ""
pQueryFlag.BSPTypeName = ""
pQueryFlag.lQueryFlag = 0
pQueryFlag.lStationNo = 0
Dim ret As Long '
ret = RDBObj.RDBPointQuery(pQueryFlag, lPNum, PNameArr, 0)
If ret = 0 Then