Need Help on ListView

Sub Searchbox_TextChanged (Old As String, New As String)
SearchResult.Clear


If New<>"" Then

   For i=0 To Input1List.Size-1
   Dim snm As String
   Dim sb3 As StringBuilder
   sb3.Initialize
   sb3.Append(Input1List.get(i)&Input2List.get(i))
   snm=sb3.ToString.ToUpperCase
   
         If snm.IndexOf(New.ToUpperCase)>-1 Then
         SearchResult.AddTwoLines2(Input1List.get(i),Input2List.get(i),i)
         
         Dim Label1 As Label
         Label1 = SearchResult.TwoLinesLayout.Label
         Label1.TextSize = 20
         Label1.TextColor = Colors.Yellow
         Dim Label2 As Label
         Label2 = SearchResult.TwoLinesLayout.SecondLabel
         Label2.TextSize = 20
         Label2.TextColor = Colors.Cyan
               
         End If
   Next

End If

End Sub