[vb6] Undo the last user action on a Textbox control

Visual Basic lets the user undo his last editing on a textbox control via the Undo item on the Textbox popupmenu, but does not give the developer access to the same functionality. The procedure below does:

    Private Declare Function SendMessageBynum& Lib "user32" Alias "SendMessageA" _
        (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, _
        ByVal lparam As Long)
    Private Const EM_UNDO = &HC7&
    
    Private Sub TextUndo(T As TextBox)
      SendMessageBynum T.hwnd, EM_UNDO, 0, 0
    End Sub