German 10 EditText boxen über eine Zufallszahl ändern

Sub Globals
    Dim EditText1, EditText2, EditText3, EditText4, EditText5, EditText6, EditText7, EditText8, EditText9, EditText10 As EditText
    Dim edtTest(10) As EditText
End Sub

Sub Activity_Create(FirstTime As Boolean)
    Activity.LoadLayout("main")
   
    edtTest = Array As EditText(EditText1, EditText2, EditText3, EditText4, EditText5, EditText6, EditText7, EditText8, EditText9, EditText10)
   
    Dim i As Int
    For i = 0 To 9
        edtTest(i).Text = "Test " & i
    Next
End Sub

Sub Globals
    Dim lblLotto(49) As Label
End Sub

Sub Activity_Create(FirstTime As Boolean)
    InitLotto
End Sub

Sub InitLotto
    Dim i, r, s As Int
    Dim Breite = 40dip As Int
    Dim Spalte = 5dip + Breite As Int
  
    For r = 0 To 6
        For s = 0 To 6
            i = r * 7 + s
            lblLotto(i).Initialize("lblLotto")
            Activity.AddView(lblLotto(i), 5dip + s * Spalte, 5dip + r * Spalte, Breite, Breite)
            lblLotto(i).Color = Colors.White
            lblLotto(i).TextSize = 24
            lblLotto(i).Gravity = Gravity.CENTER
            lblLotto(i).TextColor = Colors.Black
            lblLotto(i).Text = i + 1
        Next
    Next
End Sub

Sub lblLotto_Click
    Dim lbl As Label
    Dim Zahl As Int

    lbl = Sender
    Zahl = lbl.Text
End Sub

edtTest = Array As EditText(EditText1, EditText2, EditText3, EditText4, EditText5, EditText6, EditText7, EditText8, EditText9, EditText10)