用Visual Basic实现undo功能

      一、设计思路
      一般的字处理软件，如WPS Office、Word都有撤销功能，极大地方便了用户，可是这项功能用VB该如何实现呢？这就要用到SendMessage函数，该函数的功能就是向指定的窗口发送一条消息，它有4个参数，含义如下：
      .hWnd：用来指定要接受消息的窗口的句柄；
      .wMsg：用来指定要发送的消息的编号；
      .wParam：用来指定消息的第一参数；
      .1Param：用来消息的第二参数。
二、实战
      新建一个EXE窗体，上面放置一个textbox、两个 commndbotton控件，名称分别为text1、command1、command2，caption分别为text1、撤销、退出，其它设置取默认值。
      打开API阅览器，将函数SendMessage复制到窗体代码中。所有源代码如下：

      Option Explicit
      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
      Private Const EM_CANUNDO = &HC6
      Private Const EM_UNDO = &HC7
      Private Sub Command1_Click()
      Dim i As Integer
      i = SendMessage(Text1.hwnd, EM_UNDO, 0, 0)
      End Sub
      Private Sub Command2_Click()
      End
      End Sub