TextBox İçerisinde Son İşlemi Geri Almak

(Modul)(General)(Declaration)
Global Const WM_USER = &H400
Global Const EM_UNDO = WM_USER + 23

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

Private Sub Command1_Click()
UndoResult = SendMessage(Text1.hwnd, EM_UNDO, 0, 0)
End Sub