Snippet Library

none

'1.  Put a label On the form called 'lblOVR'

'2.  Put this code In KeyUp event of Form
  Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)
     If KeyCode = vbKeyInsert Then
       If lblOVR = "Over" Then
         lblOVR = "Insert"
       Else
         lblOVR = "Over"
       End If
     End If
  End Sub

'3.  Put this code In KeyPress event of Text Box
  Private Sub txtText_KeyPress(KeyAscii As Integer)
   'Exit if already selected
    If txtText.SelLength > 0 Then Exit Sub
  
    If lblOVR = "Over" Then
       If KeyAscii <> 8 And txtText.SelLength = 0 Then
          txtText.SelLength = 1   '8=backspace
       End If
    Else
       txtText.SelLength = 0
    End If

  End Sub;