Snippet Library

'Windows API provides an undo function
     
'Do the following declares:
  Declare Function SendMessage Lib "User" (ByVal hWnd As _
     Integer, ByVal wMsg As Integer, ByVal wParam As _
     Integer, lParam As Any) As Long

  Global Const WM_USER = &h400
  Global Const EM_UNDO = WM_USER + 23
     

'And in your Undo Sub do the following:
  UndoResult = SendMessage(myControl.hWnd, EM_UNDO, 0, 0)
 'UndoResult = -1 indicates an error.

none;