Hello.
I'm trying to implement the ability to undo / redo in memo text box.
This is the code:
Private Sub Form_Load()
Me.Text0.SetFocus
Me.Text0.SelStart = 0
ReDim arrText(0)
arrText(0) = Me.Text0
Pointer = 0
End Sub
Private Sub Text0_Change()
If Undoing Then Exit Sub
Pointer = Pointer...