Private Sub Panel1_Click
Dim index As Int = CLV2.GetItemFromView(Sender)
Dim pnl As B4XView = CLV2.GetPanel(index)
Dim txtItm As B4XView = pnl.GetView(0) ' edittext is the first view in the layout.
Dim ime1 As IME
txtItm.RequestFocus
ime1.ShowKeyboard(txtItm)
txtItm.SelectionStart = txtItm.Text.Length 'places the cursor at the end of the text
End Sub