Sub edt_FocusChanged (HasFocus As Boolean)
If HasFocus Then
Dim index As Int
Dim Send As View
Dim tagstr As String
Send=Sender
tagstr = Send.Tag
index = clv.GetItemFromView(Sender)
Dim pnl As Panel
pnl = clv.GetPanel(index)
Dim edt As EditText
For i = 0 To 1
edt = pnl.GetView(i)
edit = edt
If edt.Tag = tagstr Then
edt_Click
Exit
End If
Next
End If
End Sub
Sub edt_Click
CallSubDelayed(Me, "edt_SelectText")
End Sub
Sub edt_SelectText
DoEvents
edit.SelectAll
DoEvents
edit.SelectAll
End Sub