Undo di dalam Text Box

Persiapan :
1. 1 Form
2. 1 TextBox
3. 1 Command Button
4. 1 module

isikan source module seperti dibawah ini

Code:

Declare Function SendMessageBynum& Lib "user32" Alias "SendMessageA" _
(ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, _
ByVal lparam As Long)
Public Const EM_UNDO = &HC7&

pada form isikan source seperti ini

Code:

Private Sub TextUndo(T As TextBox)
SendMessageBynum T.hwnd, EM_UNDO, 0, 0
End Sub

kemudian klik 2 kali command button dan isikan source dibawah ini

Private Sub Command1_Click()
Call TextUndo(Text1)
End Sub

selesai dan silahkan di coba