Creating an UNDO for a small NotePad???

Hi,

I would like to create an UNDO for my small NotePad. I have created an UNDO already but sometimes for some reason when I press UNDO the Text compleatly vanishes. I would like to see an Example please.

Thanks

I think there's an example on here. Try
downloading it.

Simple Undo..

Code:

---

Private Sub Command1_Click()
    Text1.SetFocus
    SendKeys "^Z", 1
End Sub

---

------------------
Aaron Young
Analyst Programmer
[email protected]
[email protected]