Bloquear cursor hacia la izquierda

[Skalitiko]

Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
'para que no se pueda borra con Spr

If KeyCode = 46 And Text1.SelStart <= 3 Then

KeyCode = 0

End If

End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
'Para que no se pueda borrar con backspace

If KeyAscii = 8 And UCase(Text1) = "ABCD" Then

KeyAscii = 0

End If

End Sub

Private Sub Text1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
'Para impedir selección del texto con el mause
If Text1.SelLength > 0 Then Text1.SelLength = 0
End Sub

Private Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer)
'Para impedir selección de texto con Shift
If Text1.SelLength > 0 Then Text1.SelLength = 0
End Sub