listbox1
creare un pulsante(attivare), una listbox(lista1) una label1
programma:assegnare valore a
dati da inserire in lista1 con additem
contare elementi in lista con listcount
cancellare elemento da lista con removeitem(numero)
ripete fasi precedenti, cancella tutto
Private Sub attivare_Click()
Rem inserimento elementi, conteggio elementi, cancellazione
elementi
Rem nuovo conteggio, nuovo inserimento,cancellazione, conteggio
Dim numero As Integer
Rem sei elementi inseriti in lista1 da programma
Rem il conteggio parte da 0 per il primo elemento
Rem visualizza elementi
lista1.AddItem
("0 primo")
lista1.AddItem ("1 secondo")
lista1.AddItem ("2 terzo")
lista1.AddItem ("3 quarto")
lista1.AddItem ("4 quinto")
lista1.AddItem ("5 sesto")
MsgBox ("avanti per conteggio elementi")
numero = lista1.ListCount
Label1.Caption = ("numero
elementi = " & numero)
MsgBox ("avanti per cancellare 2 elemento:0,1,2,3...")
lista1.RemoveItem (1)
numero = lista1.ListCount
Label1.Caption = ("numero elementi = " & numero)
MsgBox ("avanti per nuovo inserimento")
lista1.AddItem ("rosso")
lista1.AddItem ("verde")
lista1.AddItem ("giallo")
MsgBox ("avanti per conteggio elementi")
numero = lista1.ListCount
Label1.Caption = ("numero elementi = " & numero)
MsgBox ("avanti per cancellare 8 elemento:0,1,2,3...7")
lista1.RemoveItem (7)
numero = lista1.ListCount
Label1.Caption = ("numero elementi = " & numero)
MsgBox ("avanti per cancellare tutto")
lista1.Clear
Label1 = ""
End Sub