Abilitare la funzione redo in una Richtextbox

[giorgiogio48]

Ciao a tutti,
dopo un replace all la normale funzione undo e redo non funzionano.
Allora ne codice ho trovato una funzione che risolve il problema dell'undo.
Ho fatto così:
a livello di modulo ho inserito lr istruzioni:

Private Undos As List(Of String) = New List(Of String)()
Private AddUndo As Boolean = True

Poi nella voce di menu 'undo' ho inserito il seguente codice:

If Undos.Count <> 0 Then
    AddUndo = False

    If Undos.Count > 1 Then
        Document.Text = Undos(Undos.Count - 2)
        Undos.RemoveAt(Undos.Count - 1)
    Else

        Undos.RemoveAt(0)
    End If

    AddUndo = True
End If

Poi nell'evento richtexbox_TextChanged ho inserito_

If AddUndo = True Then
    Undos.Add(Document.Text)

End If

E così ho risolto il problema dell'undo
Ora non riesco a fare la stessa cosa per in redo.
Non dovrebbe essere difficile perchè ho il codice per l'undo, mo non riesco a farlo.
Qualcuno potrebbe aiutami a risolvere il problema?
Grazie a tutti in anticipo
Saluti