TextBox1.Refresh не работает. Что не так& - VB

Формулировка задачи:

Нужно отменить изменение значения в TextBox - е.
С помощью какой команды это можно сделать?
TextBox1.Refresh не помогает - значение на старое обратно не меняется.

Решение задачи: «TextBox1.Refresh не работает. Что не так&»

textual
                            Листинг программы 
                        
                            Private <font color="blue">Declare</font> Function SendMessage Lib <font color="green">"user32"</font> Alias <font color="green">"SendMessageA"</font> (ByVal hwnd <font color="blue">As</font> Long, ByVal wMsg <font color="blue">As</font> Long, ByVal wParam <font color="blue">As</font> Long, lParam <font color="blue">As</font> Any) <font color="blue">As</font> Long
Const EM_UNDO = <font color="darkblue"><b>199</b></font>

Private Sub Command1_Click()
    SendMessage Text1.hwnd, EM_UNDO, <font color="darkblue"><b>0</b></font>, ByVal CLng(<font color="darkblue"><b>0</b></font>)
<font color="blue">End</font> Sub