Sub Process_Globals
Private TextChanged As Boolean
End Sub
Sub EditText1_TextChanged (Old As String, New As String)
'If it's been changed, then this sub will be called again, so ignore the next call
If TextChanged Then
TextChanged = False
Return
End If
TextChanged = True
Dim Pos As Int = EditText1.SelectionStart
EditText1.Text = New.ToLowerCase
EditText1.SelectionStart = Pos
End Sub