textbox: do inset/overkey key

[donW]

hi all
using the TextBox , what is the easiest way to make the INS
key operate as it should?
(ie toggle between insert or overtype modes for text entry)

[moinkhan]

Do this...

Dim InsKey As Boolean
 
Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyInsert Then
    InsKey = Not InsKey
End If
End Sub
 
Private Sub Text1_KeyPress(KeyAscii As Integer)
If InsKey Then
    Text1.SelLength = 1
End If
End Sub