Android Question Error when trying to set focus to an edittext in a clv

Sub Button1_Click
    currentcut = currentcut + 1
    Dim pa As Panel = clvSideA.GetPanel(currentcut)
    pa.GetView(1).RequestFocus
End Sub

Private Sub ETCutA_TextChanged (Old As String, New As String)
    Dim ETCutAView As Object = Sender
    If ETCutAView Is EditText Then
        Dim position2 As Int = clv.GetItemFromView(ETCutAView)       
        If position2 < clv.Size - 1 Then 'So that it does not crash when it is in the last EditText
            Dim nextPanel As Panel = clv.GetPanel(position2 + 1)
            Dim nextEditText As EditText = nextPanel.GetView(1)
            Sleep(10) 'this prevents the following error -> java.lang.IndexOutOfBoundsException: setSpan
            nextEditText.RequestFocus
        End If   
    End If
End Sub

Private Sub ETCutA_TextChanged (Old As String, New As String)

    Log("ETCutA Text Changed  Position = " & position)
   
    If flagTextChanged = False Then    'global flag
        flagTextChanged = True
        Return
    End If
   
    position = position+1
    If position < clv.Size Then
        Dim pa As Panel = clv.GetPanel(position)
        Sleep(0)        'required
        pa.GetView(1).RequestFocus
        flagTextChanged = False
    End If
   
End Sub

Private Sub ETCuta_FocusChanged (HasFocus As Boolean)

Private Sub ETCutA_FocusChanged (HasFocus As Boolean)
    If HasFocus = True Then
        Dim ETCutAView As Object = Sender
        
        If ETCutAView Is EditText Then        'commenting this line test results in the following error
            
            'java.lang.ClassCastException: b4a.example.sd_keyboard cannot be cast to android.view.View
            
            Dim position2 As Int = clv.GetItemFromView(ETCutAView)
            Dim nextPanel As Panel = clv.GetPanel(position2)
            Dim nextEditText As EditText = nextPanel.GetView(1)
            Sleep(10) 'this prevents the following error -> java.lang.IndexOutOfBoundsException: setSpan
            nextEditText.SelectAll
        End If
    End If
End Sub

Private Sub Panel1_Touch (Action As Int, X As Float, Y As Float)
    Dim pan As Object = Sender
    If pan Is Panel Then
        Dim position2 As Int = clv.GetItemFromView(pan)
        Dim panItem As Panel = clv.GetPanel(position2)
        Dim txtETCutA As EditText = panItem.GetView(1)
        Sleep(10) 'this prevents the following error -> java.lang.IndexOutOfBoundsException: setSpan
        txtETCutA.SelectAll
        txtETCutA.RequestFocus
    End If   
End Sub