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