Capacidad de listview

[marcos1979]

La verdad que no se pero con esto van como 300000 (si, trescientos mil) y sigue, y sigue, y sigue... no llega al error :@ (pero lo dejo un rato mas para sacarme la duda :D )

Private Sub Form_Activate()

On Error GoTo ErrHandler

Dim i As Long

Do While True
i = i + 1
DoEvents
lv.ListItems.Add i, , Str(i)
'lv.Refresh
'Exit Sub
Loop

ErrHandler:

MsgBox lv.ListItems.Count

End Sub

Un saludo y proba con el doevents al cargar para que no se te congele.

Edito: Tengo que ser sincero, con 1.5 Millones de items y casi 600 Mb de memoria ocupada se puso lento asi que lo paré :p, nos vemos