Dim options As B4XListTemplate
options.Initialize
options.Resize(300dip, 600dip)
options.CustomListView1.AsView.width=300dip
options.CustomListView1.AsView.Height=600dip
options.Options = Array("Cat", "Dog", "Fish", "Crocodile", "Tiger", "lion", "Kangaroo", "zebra")
Wait For (Dialog.ShowTemplate(options, "OK", "", "CANCEL")) Complete (Result As Int)
If Result = xui.DialogResponse_Positive Then
Dialog.Show($"You selected: ${options.SelectedItem}"$, "OK", "", "")
End If