' Gambas class file Public A_Mayusculas As String Public Sub Form_Open() End Public Sub TextBox1_Change() Convertir_a_mayusculas(TextBox1.Text, TextBox1) TextBox1.Text = A_Mayusculas End Public Function Convertir_a_mayusculas(texto As String, txt As TextBox) As String A_Mayusculas = String.UCase$(texto) Return txt.Text = A_Mayusculas End Public Sub TextBox2_Change() Convertir_a_mayusculas(TextBox2.Text, TextBox2) TextBox2.Text = A_Mayusculas End