Private Sub Button1_Click_1(sender As Object, e As EventArgs) Handles _
      FTUndo.Click
        If Me.RichTextBox1.CanUndo Then
            Me.RichTextBox1.Undo()
        End If
    End Sub
 
    Private Sub FTWdh_Click(sender As Object, e As EventArgs) Handles _
      FTWdh.Click
        If Me.RichTextBox1.CanRedo Then
            Me.RichTextBox1.Redo()
        End If
    End Sub