试试API定义为As Any，然后其他地方用Variant
不太懂，改成，试试看。Private Declare Function FunctionA Lib "A.DLL" (ByVal objptr As Long, ByRef B() As STRUCTA) As Integer
