VB.NET2008怎么利用SendMessage修改按钮的Text

VB.NET2008如何利用SendMessage修改按钮的Text？
为了测试 Windows API ，试图点Button用SendMessage修改该按钮的Text，竟然没成功，请教各位高人，应该如何实现？多谢。
   

 Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Integer, ByVal wMsg As Integer, ByVal wParam As Integer, ByVal lParam As String) As Integer
   
   
  Const WM_SETTEXT As Integer = &HC

  Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

  SendMessage(Me.Button1.Handle.ToInt32, WM_SETTEXT, 1, "test")
  End Sub

------解决方案--------------------
用SetWindowText() API
WM_SETTEXT用于文本框。