B4J Question UpperCase TextEdit

[micro]

Hi to All
I use this code for UpperCase Text insert:

Sub TextEdit1_TextChanged (Old As String, New As String)
Dim i As Int
    i = TextEdit1.SelectionStart
    TextEdit1.Text = New.ToUpperCase
    TextEdit1.SetSelection(i, i)
End Sub

there is another better solution?
Thanks

 

[Erel]

This is the way to do it.