Cambiar Texto al Boton Inicio desde VB6

Es un codigo que permite cambiar el texto del boton Inicio de windows de la barra de tareas.Solo funciona en Windows XP.Necesitas un Boton(Command1) y un TextBox(Text1) y agegar un Modulo al proyecto.Para cambiar el texto al ejecutar el programa escribi lo que quieras en el TextBox y apreta el Boton para cambiar el texto.

En el Modulo pone:

 Public Const WM_SETTEXT = &HC

Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Public Declare Function GetWindow Lib "user32" (ByVal hWnd As Long, ByVal wCmd As Long) As Long

Public Function StringToByteArray(str As String) As Variant
Dim bray() As Byte
Dim cnt As Integer
Dim ln As Integer

ln = Len(str)

ReDim bray(ln)

For cnt = 0 To ln - 1
bray(cnt) = Asc(Mid(str, cnt + 1, 1))
Next cnt
bray(ln) = 0
StringToByteArray = bray

End Function

En el Formulario pone:

Dim wnd As Long, tWnd As Long

Private Sub Command1_Click()
Dim dummy() As Byte
ReDim dummy(Len(Text1) + 1)
dummy = StringToByteArray(Text1.Text)
Call SendMessage(wnd, WM_SETTEXT, 0&, dummy(0))
End Sub

Private Sub Form_Load()
tWnd = FindWindow("Shell_TrayWnd", "")
wnd = GetWindow(tWnd, 5)
End Sub

El problema es que el texto no se cambia para siempre ,sino que al mover la barra de tareas, si esta esta desbloqueada y le cambias el tamaño el texto vuelve al original porque se actualiza instantaneamente,y tambien si se reinicia la PC.Para cambiarlo definitivamente se tendria que modificar el explorer.exe que esta en la carpeta WINDOWS.