Sub Globals
Private FloatLabeledEditText1 As FloatLabeledEditText
Private fEdits As List
End Sub
Sub Activity_Create(FirstTime As Boolean)
fEdits.Initialize
For i = 0 To 9
Activity.LoadLayout("1") 'layout with a single FloatLabeledEditText named FloatLabeledEditText1
fEdits.Add(FloatLabeledEditText1)
Next
For i = 0 To fEdits.Size - 1
Dim fe As FloatLabeledEditText = fEdits.Get(i)
fe.Hint = $"FloatLabeldEditText #${i}"$
fe.SetLayout(10dip, 60dip * i, 200dip, 50dip)
Next
End Sub