Private Sub innerRestoreState(v As View, list1 As List)
Dim data() As Object
Dim IME As IME ' ------- add this ----
If v Is EditText Then
Dim edit As EditText
edit = v
data = getNextItem(list1)
edit.Text = data(0)
edit.SelectionStart = data(1)
IME.ShowKeyboard(edit) ' ------- and this for text to got focus ----