Nuevo Foro de programacion
0 Usuarios y 1 Visitante están viendo este tema.
For i = 0 To File1.ListCount - 1 Set lv = ListView1.ListItems.Add() With lv lv.Text = File1.List(i) lv.SubItems(1) = File1.List(i) End With Next i