SendMessage编辑文字问题

Question

SendMessage 句柄, EM_REPLACESEL, 0, ByVal 文字
第一次使用便会把改句柄的文字改为想要的文字，但第二次使用文字就会添加到第一次修改的文字后面。
请问各位大侠如何修改文字，而不是追加文字。

Answer 1

Private Const WM_SETTEXT = &HC
SendMessage 句柄, WM_SETTEXT, 0, ByVal 文字 

Answer 2

Private Const EM_REPLACESEL = &HC2

Answer 3

Private Declare Function SetWindowText Lib "user32" Alias "SetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String) As Long
用这个也可以.setWindowText 句柄,文字