撤消功能的实现

方法：利用VB的API函数SendMessage来实现．

函数用法：

　　声明：Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long

　　说明：调用一个窗口的窗口函数，将一条消息发给那个窗口。除非消息处理完毕，否则该函数不会返回。SendMessageBynum， SendMessageByString是该函数的“类型安全”声明形式
　　返回值：Long，由具体的消息决定
　　参数表：hwnd -----------  Long，要接收消息的那个窗口的句柄
　　　　　　wMsg -----------  Long，消息的标识符
　　　　　　wParam ---------  Long，具体取决于消息
　　　　　　lParam ---------  Any，具体取决于消息

例如：
　　　
'　声明API函数
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long

'　调用API函数
Private Sub MnuChe_Click()
Dim ls
ls = SendMessage(Txt.hwnd, &H304, 0, 0)
End Sub