Как сделать режим замены символов при вводе?..

[Nataliak]

Требуется в полях в форме Vb6 сделать вкл/выкл по Insert режим замены символов при вводе.
Не существует ли такой типовой функции? Я собралась делать путем высчитывания текущей позиции курсора и заменой следующего символа, но может есть что-то более умное.

[X-BOND]

Вот такой код откопал:

Код: Выделить всё

Sub Text1_KeyPress(KeyAscii As Integer)
    If KeyAscii >= 32 Then 'проверка, что вводится символ (буква или цифра)
        If Text1.SelLength = 0 Then 'проверка, что текст не выделен
            If Text1.SelStart < Len(Text1) Then
                Text1.SelLength = 1 'данным установлением включается режим замены
            End If
        End If
    End If
End Sub