SetupDiGetDeviceInterfaceDetail调用出错，跟之前一位大哥碰到一样问题，哎！

第一次调用时返回Needed＝86，但是第二次调用总不成功
Dim Needed As Long
Dim DetailData As Long
Dim DetailDataBuffer() As Byte
Dim Result, Result1 As Long

Result = SetupDiGetDeviceInterfaceDetail _
(DeviceInfoSet, _
MyDeviceInterfaceData, _
0, _
0, _
Needed, _
0)

DetailData = Needed

MyDeviceInterfaceDetailData.cbSize = Len(MyDeviceInterfaceDetailData)
ReDim DetailDataBuffer(Needed)

Result = RtlMoveMemory _
(DetailDataBuffer(0), _
MyDeviceInterfaceDetailData, _
4)

Result = SetupDiGetDeviceInterfaceDetail _
(DeviceInfoSet, _
MyDeviceInterfaceData, _
VarPtr(DetailDataBuffer(0)), _
DetailData, _
Needed, _
0)

怎么都没人帮我啊，各位大哥帮帮忙啊，痛苦中，谢谢了。