Private bSp As Boolean = False
Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
e.Handled = True
If Not bSp Then bSp = AscW(e.KeyChar) = 32
If bSp Then
TextBox1.Text &= e.KeyChar.ToString.ToUpper
Else
TextBox1.Text &= e.KeyChar.ToString
End If
TextBox1.SelectionStart = TextBox1.Text.Length
End Sub