Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged Dim entree As TextBox = DirectCast(sender, TextBox) Dim selDebut As Integer = entree.SelectionStart Dim selLongueur As Integer = entree.SelectionLength entree.Text = entree.Text.ToUpper entree.SelectionStart = selDebut entree.SelectionLength = selLongueur End Sub
TextBox1.CharacterCasing = CharacterCasing.Upper
Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged label1.text = textbox1.text End Sub