>ah sorry come posso farmi una loop sulla lista box??
devi leggere i records tramite l'indice di ogni riga
è semplicissimo. più di quanto possa sembrare.
esempio pratico: hai la ListBox "List_One" ed il pulsante "Command_One"
all'evento Command_One_Click() dovrai attribuire il seguente codice:
[...]
' Dichiaro la variabile INDEX per leggere la ListBox record dopo record
Dim var_index As Integer
' Controllo che sulla ListBox ci sia almeno un inserimento per rintracciare eventuali selezioni
If List_One.ListCount > 0 Then
' * La proprietà LISTCOUNT restituisce il valore numerico intero dei records totali
' presenti nella ListBox
' Inizio il ciclo di For..Next sulla mia variabile INDEX per leggere la ListBox record dopo record
For var_index = 1 To List_One.ListCount
' Se all'indice indicato la proprietà SELECTED della ListBox è TRUE visualizzo un messaggio
' * L'indice a cui leggere è inferiore di una unità poiché il primo record di una lista è il
' record 0 e non il record 1
If List_One.Selected(var_index - 1) = True Then
MsgBox "Selezionato: " & var_index, vbOKOnly, "Selezionati"
End If
' Prossimo INDEX
Next var_index
End If
[...]
ciao
AlPanix