Private Sub IDTxt_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles IDTxt.TextChanged
For i As Integer = 0 To 25
If InStr(IDTxt.Text.ToUpper, Chr(65 + i)) <> 0 Then
IDTxt.Text = IDTxt.Text.Substring(0, (IDTxt.Text.Length - 1))
.IDTxt.SelectAll()
Exit Sub
End If
Next