Sub Activity_Create(FirstTime As Boolean)
Dim e As EditText
e.Initialize("")
Dim sb As StringBuilder
sb.Initialize
For i = 1 To 10000
sb.Append("ab ")
Next
sb.Append(" end!")
e.Text = sb.ToString
Activity.AddView(e, 10dip, 10dip, 300dip, 300dip)
Log(e.Text.Length)
e.SelectionStart = e.Text.Length - 1
End Sub