如何在RichTextBox中实现“撤消(Undo)”功能

我在网上搜索到这样一段代码，不知道如何使用
它说定义该在那里定义？？如何使程序按下“撤消”键就能产生效果？？
望高手不吝赐教，如果有其它好的代码，也想领教。

下面的办法不但适用于RichTextBox，也适合于TextBox。
先加入以下定义：
Const EM_CANUNDO = &HC6
Private Declare Function SendMessage Lib "User32" Alias _
"SendMessageA" _
(ByVal hWnd As Long, _
ByVal wMsg As Long, _
ByVal wParam As Long, _
ByVal lParam As Long) As Long
Const EM_UNDO = &HC7
然后使用
SendMessage RichTextBox1.hWnd, EM_UNDO, 0&, 0&
就可以实现Undo功能。
你也可以使用
lRet = SendMessage(RichTextBox1.hWnd, EM_CANUNDO, 0&, 0&)
来决定是否可以进行Undo操作。如果返回1表示可以。

我在c＃中使用richtextbox的时候用一个方法就搞定了。
richTextBox1.Undo();

richtextbox1.undo（）; richtextbox1.redo（）;