Dim oGroupsList As List
oGroupsList.Initialize
oGroupsList.AddAll(Array As String())
oItems =p.NextArray
For i = 0To oItems.Size - 1
oRowMap=oItems.Get(i)
sValue =oRowMap.Get("sValue")
sDescription=oRowMap.Get("sDescription")
oGroupsList.add(sValue & "-" & sDescription)
Next
ashGroups.Initialize("Groups","Pick A Group","Cancel","",oGroupsList)
ashGroups.show(page3.RootPanel)