In this post I will teach you about the text box case change. you need select 3 text boxes from tool box then use the below coding as per video instruction.
Public Class Form1
Private Sub TextBox4_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox4.TextChanged
Dim zzz_start As Integer
Dim zzz_length As Integer
zzz_start = TextBox4.SelectionStart
zzz_length = TextBox4.SelectionLength
TextBox4.Text = TextBox4.Text.ToUpper
TextBox4.SelectionStart = zzz_start
TextBox4.SelectionLength = zzz_length
End Sub
Private Sub TextBox3_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox3.TextChanged
Dim YYY_start As Integer
Dim YYY_length As Integer
YYY_start = TextBox3.SelectionStart
YYY_length = TextBox3.SelectionLength
TextBox3.Text = TextBox3.Text.ToLower
TextBox3.SelectionStart = YYY_start
TextBox3.SelectionLength = YYY_length
End Sub
Private Sub TextBox2_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox2.TextChanged
Dim ttt_start As Integer
Dim ttt_length As Integer
ttt_start = TextBox2.SelectionStart
ttt_length = TextBox2.SelectionLength
TextBox2.Text = StrConv(TextBox2.Text, _
VbStrConv.ProperCase)
TextBox2.SelectionStart = ttt_start
TextBox2.SelectionLength = ttt_length
End Sub
End Class
