Creating an UNDO for a small NotePad???

[rino_2]

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.

[Aaron Young]

Simple Undo..

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

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