Hola a todos soy nuevo en el foro y tengo una pregunta, necesito asignar a un listbox más de 10 columnas especificamente 12, utilicé la propiedad .additem y todo iba bien hasta la columna 10, pero al intentar colocar la 11 y 12 no me fue posible, he visto que se pueden agregar más de 10 columnas con rowsource pero la verdad no sé como implementarlo, gracias por la ayuda.
historial eventos es un arreglo de strings esta declardo en un modulo a parte y va de 1 a 200 y de 1 a 12,
Dim posicion As Integer
Dim i As Integer
For i = 1 To 200
If historial_eventos(i, 1) <> "" Then
interfaz_lopa.ListBox6.AddItem
posicion = interfaz_lopa.ListBox6.ListCount
interfaz_lopa.ListBox6.List(posicion - 1, 0) = historial_eventos(i, 1)
interfaz_lopa.ListBox6.List(posicion - 1, 1) = historial_eventos(i, 2)
interfaz_lopa.ListBox6.List(posicion - 1, 2) = historial_eventos(i, 3)
interfaz_lopa.ListBox6.List(posicion - 1, 3) = historial_eventos(i, 4)
interfaz_lopa.ListBox6.List(posicion - 1, 4) = historial_eventos(i, 5)
interfaz_lopa.ListBox6.List(posicion - 1, 5) = historial_eventos(i, 6)
interfaz_lopa.ListBox6.List(posicion - 1, 6) = historial_eventos(i, 7)
interfaz_lopa.ListBox6.List(posicion - 1, 7) = historial_eventos(i, 8)
interfaz_lopa.ListBox6.List(posicion - 1, 8) = historial_eventos(i, 9)
interfaz_lopa.ListBox6.List(posicion - 1, 9) = historial_eventos(i, 10)
interfaz_lopa.ListBox6.List(posicion - 1, 10) = historial_eventos(i, 11)
interfaz_lopa.ListBox6.List(posicion - 1, 11) = historial_eventos(i, 12)
End If
Next i
