German Temporär über EditText und "Sender" den Text von Labels ändern

Sub Globals
    Dim edtText1 As EditText
    Dim CurrentLabel As Label
    Dim scvLabels As ScrollView
    Dim IME1 As IME
End Sub

Sub Activity_Create(FirstTime As Boolean)
    IME1.Initialize("")
    CurrentLabel.Initialize("")

    edtText1.Initialize("edtText1")
    Activity.AddView(edtText1, 10dip, 10dip, 250dip, 40dip)
    edtText1.ForceDoneButton = True
    
    scvLabels.Initialize(100)
    Activity.AddView(scvLabels, 10dip, 50dip, 250dip, 100%y - 60dip)

    Dim i As Int
    For i = 0 To 20
        Dim lbl As Label
        lbl.Initialize("lbl")
        scvLabels.Panel.AddView(lbl, 0, 50dip * i, 250dip, 40dip)
        lbl.Tag = i
        lbl.TextSize = 16
        lbl.TextColor = Colors.Black
        lbl.Gravity = Gravity.CENTER_VERTICAL
        lbl.Color = Colors.White
    Next
    scvLabels.Panel.Height = i * 50dip
End Sub

Sub lbl_Click
    If CurrentLabel.IsInitialized Then
        CurrentLabel.Color = Colors.White
    End If
    Dim CurrentLabel As Label
    CurrentLabel = Sender
    CurrentLabel.Color = Colors.Yellow
    edtText1.Text = ""
    edtText1.Hint = "Eingabe Label " & CurrentLabel.Tag
    edtText1.RequestFocus
    IME1.ShowKeyboard(edtText1)
End Sub

Sub edtText1_EnterPressed
    CurrentLabel.Text = edtText1.Text
    IME1.HideKeyboard
End Sub