For i = 0 To List1.Size -1
Dim pastor As String
If List2.Get(i) = "null" Or List2.Get(i) = 0 Then
Log("lista es vacia")
ListView1.AddTwoLinesAndBitmap( List6.Get(i),List4.Get(i),LoadBitmapSample(File.DirAssets,"play2.png",15dip,15dip))
Else
pastor = trim_string2(List2.Get(i))
If File.Exists(File.DirAssets,pastor) = True Then
Log(pastor)
Try
ListView1.AddTwoLinesAndBitmap( List6.Get(i),List4.Get(i),LoadBitmapSample(File.DirAssets,pastor,15dip,15dip))
Catch
Log(LastException)
End Try
Else
ListView1.AddTwoLinesAndBitmap( List6.Get(i),List4.Get(i),LoadBitmapSample(File.DirAssets,"play2.png",15dip,15dip))
End If
End If
Next