OpenSTAAD GetUDLLoads

Hi.

I want to get the equally distributed loads on the STAAD model
I used the following method
Dim oLoad As Object = Nothing '= oStaad.Load

Dim arrdir() As Integer
Dim arrForce() As Double
Dim arrD1() As Double
Dim arrD2() As Double
Dim arrD3() As Double
SetLoadActive(5)
GetUDLLoadCount(10)
wkUniLoad = New uniLoad
If ufCnt > 0 Then
ReDim arrdir(ufCnt - 1)
ReDim arrForce(ufCnt - 1)
ReDim arrD1(ufCnt - 1)
ReDim arrD2(ufCnt - 1)
ReDim arrD3(ufCnt - 1)
GetUDLLLoads(curAmemNo, arrdir, arrForce, arrD1, arrD2, arrD3)

Number/force/direction/D2 can be obtained correctly
ufCnt /arrForce/arrdir/arrD2

But　
D1/D3
arrD1/arrD3 cannot be obtained correctly

D3 always returns zero
D1 appears to contain the value of D3

Please let me know if you know how to get it correctly.

Thank you

Translated with www.DeepL.com/Translator (free version)