Dim itemList As List = Array As String("Organes", "Nabanabas", "Appels", "Drapes", "BawSterries", "Lemlons")
Dim builder As MSDialogBuilder
builder.Initialize("MyDialog")
builder.setTitle("Material List Dialog").setMessage("This is a List dialog").setThemeColor(Colors.Green)
builder.setButton(DialogResponse.POSITIVE , "OK")
builder.setCancelable(True)
builder.setDesign(builder.DESIGN_MATERIAL_DARK)
builder.setListStyle(itemList)
builder.show