>In VB.Net textboxes where I have set the MaxLength property I cannot insert or overwrite characters when the maximum length is reached. In VFP and other programs,I am used to the last letters scrolling off in insert mode, or the text being overwritten by the new keystrokes. The way it is I am forced to delete characters before I can change any others.
>
>Does anyone know how to change this behaviour? It is unacceptable.

Here you go. If you want fox style set the bolFoxStyle var = true I like truncating the leading char but you can have it both ways. The fox style is little more work but, se la vi. Boy, on the UT you always feel like you screwed up any frenchism. ;)

I used Sender inside the functions so you can use one function for any textboxes you want to have this behavior.
HTH,

    Dim bolFoxStyle As Boolean = False

    Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress

        Dim strCur As String = sender.text.trim
        Dim ilenCur As Integer = strCur.Length
        Dim strNew As String = ""

        If bolFoxStyle Then

            If e.KeyChar.IsLetterOrDigit(e.KeyChar) Then

                If ilenCur >= sender.maxlength Then
                    strNew = strCur.Substring(0, (ilenCur - 1)) & e.KeyChar
                    sender.text = strNew
                    ' sender.Select((sender.maxlength - 1), 1) ' This doesn't work here add to _textchanged
                End If

            End If

        Else

            If e.KeyChar.IsLetterOrDigit(e.KeyChar) Then

                If ilenCur >= sender.maxlength Then
                    strNew = strCur.Substring(1, (ilenCur - 1)) & e.KeyChar
                    sender.text = strNew
                    TextBox1.SelectionStart = sender.maxlength ' Move to the end of the line for UI clarity
                End If

            End If

        End If

    End Sub

    Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged

        If bolFoxStyle Then
            Dim strCur As String = sender.text.trim
            Dim ilenCur As Integer = strCur.Length

            If ilenCur >= sender.maxlength Then
                sender.Select((sender.maxlength - 1), 1) ' This works here 
            End If
        End If
    End Sub