OpenStaad Issue : Why objOpenSTAAD.Load.GetPrimaryLoadCaseNumbers don't return Load Id for moving loads?

Hello, I want to extract Load ID and Name of all loads from my active File but can't figure out how to extract Live load ID.

objOpenSTAAD.Load.GetPrimaryLoadCaseNumbers is returning 0 loadID for all live loads.

I can't find any other API to get Moving load count or ID.

Sub Test()

    Dim objOpenSTAAD As Object
    Dim selbeamsNo As Long
    Dim SelBeams() As Long

    'Launch the OpenSTAAD Object
    Set objOpenSTAAD = GetObject(, "StaadPro.OpenSTAAD")
    
    'Get Primary Load Count
    Dim lPrimaryLoadCaseCount  As Long
    lPrimaryLoadCaseCount = objOpenSTAAD.Load.GetPrimaryLoadCaseCount
    Debug.Print lPrimaryLoadCaseCount
    
    'Get Primary Load Case Array
    Dim lPrimaryLoadCaseNumbersArray() As Long
    ReDim lPrimaryLoadCaseNumbersArray(lPrimaryLoadCaseCount)
    'Get Primary Load Case Numbers
    objOpenSTAAD.Load.GetPrimaryLoadCaseNumbers lPrimaryLoadCaseNumbersArray
 
End Sub

Results