Imports System.Windows.Forms Public Class UpperTextBox Inherits TextBox Protected Overrides Sub OnTextChanged(ByVal e As System.EventArgs) 'Changing text entered by the user to upper case Dim sel As Integer = SelectionStart Text = Text.ToUpper SelectionStart = sel MyBase.OnTextChanged(e) End Sub End Class