If dialog.isShowing Then
dialog.hide
End If
Dim items(3) As String
items(0) = "Hallo"
items(1) = "B4X"
items(2) = "World!"
dialog.Initialize("Dialog")
dialog.tag = CreateMap("action":"MultiSelect")
dialog.positiveText("Yo").negativeText("Oh nooo").neutralText("I dont care").positiveColor(Colors.Green).neutralColor(Colors.Magenta).negativeColor(Colors.Red).content("test").contentLineSpacing(1).items(Array As String("Apple ", "Orange", "Grapes","Pineapple","Mango" )).itemColor(Colors.Blue).itemsCallbackMultiChoice(Array As Int(1,2)).alwaysCallMultiChoiceCallback.build.show
End Sub