Sub GetMapKeyAt(oMap As Map, iIndex As Int) As Object
Dim i As Int
For Each oKey As Object In oMap.Keys
If i = iIndex Then
Return oKey
End If
i = i + 1
Next
Return Null
End Sub
Sub GetMapValueAt(oMap As Map, iIndex As Int) As Object
Dim i As Int
For Each oValue As Object In oMap.Values
If i = iIndex Then
Return oValue
End If
i = i + 1
Next
Return Null
End Sub
[CODE/]
RBS