Ah, esta bien... Yo interprete mal. Creí que querías seleccionar el texto con el puntero del mouse, al igual que se puede seleccionar en un textbox. Bueno, fijate si te sirve este código:
Código:
Dim X As Byte
X = 0
Do While X <= List1.ListCount - 1
MsgBox Left(List1.List(X), 10)
X = X + 1
Loop
Saludos. Lucas