.
.
.
On Error Resume Next
Dim int1 As Integer
int1 = UBound(AppNames)
If int1 = 0 Then Exit Sub
Dim str1 As String, int2 As Integer
For int1 = 1 To UBound(AppNames)
str1 = String(255, " ")
str1 = GetPrivateProfileString( _
AppNames(int1), "1", "x", str1, 255, _
"C:\Ruta\ArchivoATratar.xxx")
ListView1.ListItems.Add , , Replace(str1, Chr(0), "")
For int2 = 1 To 3
str1 = String(255, " ")
str1 = GetPrivateProfileString( _
AppNames(int1), CStr(int2 + 1), "x", str1, _
255, "C:\MiRuta\ArchivoATratar.xxx")
ListView1.ListItems( _
ListView1.ListItems.Count).SubItems(int2) _
= Replace(str1, Chr(0), "")
Next int2
Next int1
.
.
.