Code:
txtsecond.CharacterCasing = CharacterCasing.Upper
txtsecond.MaxLength = 1
txtthird.Focus()
If [U](missing code)[/U] = Chr(8) And txtsecond.TextLength = 0 Then
txtfirst.Clear()
End If
Leave a comment: