[CODE lang="b4x" title="to manage "Item" of InputMapAsync"]private sub Label1_Click
Dim m As Map = CreateMap("Item #1": True, "Item #2": True, "Item #3": False)
InputMapAsync(m, "Select items", True)
Wait For InputMap_Result
For Each Key As String In m.Keys
Dim Checked As Object = m.Get(Key)
If Checked Then
Log(Key)
Label1.Text = Key