SettingsList.Add(Array("OddRowColor", xui.Color_Yellow)) 'SettingsList is the full list
SettingsList.Add(Array("GridColor", xui.Color_Red))
SettingsList.Add(Array("pnlHeader.Color", xui.Color_Cyan))
SettingsList.Add(Array("HeaderColor", xui.Color_Green))
SettingsList.Add(Array("HeadersHeight" , 70dip))
MySelectionsList.Initialize 'declared as list of selected items
options.Options = SettingsList 'options is declared as B4XListTemplate
options.AllowMultiSelection = True 'allows multi selection
Wait For (Dialog.ShowTemplate(options, "OK", "", "CANCEL")) Complete (Result As Int)
If Result = xui.DialogResponse_Positive Then
MySelectionsList = options.SelectedItems
End If