ListBoxListViewCombobox

Public Sub Form_Open()

  ListBoxPlatos.mode = Select.Multiple 'Pulse las teclas Ctrl o Mays y Click para ir seleccionando varios Item
  ListBoxPlatos.Add("Patatas Fritas con huevos")
  ListBoxPlatos.Add("Patatas Fritas con filetes")
  ListBoxPlatos.Add("Arroz con leche")
  ListBoxPlatos.Add("Ensalada")
  ListBoxPlatos.Add("Paella")
  ListBoxPlatos.Add("Puchero")
  ListBoxPlatos.Add("Gazpacho")

  ListViewComida.Add("Id_Desayuno", "En el Desayuno", Picture["amanecer.png"])
  ListViewComida.Add("id_Almuerzo", "En el Almuerzo", Picture["dia.png"])
  ListViewComida.Add("id_Merienda", "En la Merienda", Picture["atardecer.png"])
  ListViewComida.Add("id_cena", "En la Cena", Picture["cena.png"])

  ComboBoxCamarero.Add("Juan")
  ComboBoxCamarero.Add("Felipe")
  ComboBoxCamarero.Add("Maria")

  TextLabelInforme.border = Border.Plain

End

Public Sub ButtonInfome_Click()

  Dim a As Integer

  TextLabelInforme.text = "Informe:<br>"
  TextLabelInforme.text &= ".....Camarero que se encarga: " & ComboBoxCamarero.Text & "<br>"
  TextLabelInforme.text &= ".....Comida que se sirve en   " & ListViewComida.Selection[0] & "<br>"

  TextLabelInforme.text &= ".....Platos:<br>"

  For a = 0 To ListBoxPlatos.Count
    If ListBoxPlatos[a].Selected = True Then TextLabelInforme.text &= ".........." & ListBoxPlatos[a].Text & "<br>"

  Next

End