undo button

Anyone know how to make an undo and redo button?

You have to use SendKeys.

Code:

---

Private Sub Command1_Click()
    RichTextbox1.SetFocus
    SendKeys "^z", True
End Sub

---