Textbox - undo (API)

Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" _
( ByVal hWnd As Long , ByVal wMsg As Long , ByVal wParam As Long , lParam As Any) As Long

Const WM_USER = &H400
Const EM_UNDO = WM_USER + 23

iResult = SendMessage(myControl.hWnd, EM_UNDO, 0,0)