Sub acet_TextChanged (Old As String, New As String)
'Code here to jump to selected item
If New <> "" Then
Dim TestStr As String
Found=-1
For i = 0 To Main.Files.Size-1
TestStr=Main.Files.Get(i)
If New.ToLowerCase = TestStr.substring2(0,New.Length).ToLowerCase Then
Found=i
Exit
End If
Next
If Found <> -1 Then ScrollView1.ScrollPosition= 5 + (Found * 300)
Else
ScrollView1.ScrollPosition=0
End If
End Sub