Originariamente inviato da millennio
ho trovato come fare, pero ho il problema che mi mette uno spazio all'inizio come posso levarlo?

Private Sub Command6_Click()
Dim listaselezionati, lista
If List2.ListCount <> 0 Then
For listaselezionati = 0 To List2.ListCount - 1
lista = lista & vbCrLf & List2.List(listaselezionati)
Next listaselezionati
MsgBox lista
lista = ""
Else
End If
End Sub
Io di spazi non ne vedo.
A me sembra invece che tu metti un 'a capo' all'inizio, e quindi la prima riga è sempre vuota.
Ma alla fine basta toglierlo usando Mid().


Ciao