Undo/Redo Framework

Public Class Form1

    Private WithEvents frmUndoRedoManager As UndoRedoManager

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        frmUndoRedoManager = New UndoRedoManager(Me, txtRedo, txtUndo)
        MessageBox.Show(frmUndoRedoManager.GetRegisteredUndoRedoMonitorTypes())
    End Sub

    Private Sub BtnUndo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnUndo.Click
        frmUndoRedoManager.Undo()
    End Sub

    Private Sub BtnRedo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnRedo.Click
        frmUndoRedoManager.Redo()
    End Sub

    Private Sub frmUndoRedoManager_CanRedoChanged(ByVal Sender As Object, ByVal CanRedo As Boolean) Handles frmUndoRedoManager.CanRedoChanged
        btnRedo.Enabled = CanRedo
    End Sub

    Private Sub frmUndoRedoManager_CanUndoChanged(ByVal Sender As Object, ByVal CanUndo As Boolean) Handles frmUndoRedoManager.CanUndoChanged
        btnUndo.Enabled = CanUndo        
    End Sub

    Private Sub frmUndoRedoManager_UndoRedoStacksChanged(ByVal Sender As Object) Handles frmUndoRedoManager.UndoRedoStacksChanged
        txtRedo.Text = vbCrLf & frmUndoRedoManager.GetRedoStack
        txtUndo.Text = vbCrLf & frmUndoRedoManager.GetUndoStack
    End Sub

    Private Sub RadioButton1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton1.CheckedChanged

    End Sub
End Class