¿Cómo obtener todos los valores seleccionados en un ListBox multiselect en vb6?

Question

Tengo un ListBox en mi proyecto vb6 y he establecido su propiedad para multiselección. Ahora, quiero obtener todos los elementos seleccionados en mi ListBox multiselect y ponerlo en una variable, por ejemplo, o tal vez en un cuadro de texto de líneas múltiples. Solo quería obtener los valores multiselected.

Answer 1

Lamentablemente debe recorrer todos los elementos. Aquí hay un código de muestra:

Dim k As Long 
Dim s As String 

For k = 0 To List1.ListCount - 1 
    If List1.Selected(k) Then 
     s = List1.List(k) 
     ' ... do something 
    End If 
Next