Code Error in Start button Renamer

[Jonthe838]

hi i have followed a guide how to create a Windows Start Button Renamer but there is somthing wrong with my code... can some1 take a look?

Public Class Form1
    Private Const WM_SETTEXT = &HC
    Private Const WM_GETTEXT = &HD
    Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
    Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long
    Private Declare Function SendMessageSTRING Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As String) As Long

    Public Sub SetStartCaption(ByVal str As String)
        Dim StartBar As Long
        Dim StartBarText As Long
        Dim sCaption As String
        StartBar = FindWindow("Shell_TrayWnd", vbNullString)
        StartBarText = FindWindowEx(StartBar, 0&, "button", vbNullString)
        sCaption = Left(str, 5)
        SendMessageSTRING(StartBarText, WM_SETTEXT, 256, sCaption)
        Exit Sub
    End Sub
    Private Sub Command1_Click()
        SetStartCaption(TextBox1.Text)
    End Sub

End Class

As u can see have i done the Left word red becous there is somethign wrong with it? ^^ i dont understand the error :P ^^ thx

[visitor]

Public Class Form1
    Private Const WM_SETTEXT = &HC
    Private Const WM_GETTEXT = &HD
    Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
    Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long
    Private Declare Function SendMessageSTRING Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As String) As Long

    Public Sub SetStartCaption(ByVal str As String)
        Dim StartBar As Long
        Dim StartBarText As Long
        Dim sCaption As String
        StartBar = FindWindow("Shell_TrayWnd", vbNullString)
        StartBarText = FindWindowEx(StartBar, 0&, "button", vbNullString)
        sCaption = Microsoft.VisualBasic.Left(str, 5)
        SendMessageSTRING(StartBarText, WM_SETTEXT, 256, sCaption)
        Exit Sub
    End Sub
    Private Sub Command1_Click()
        SetStartCaption(TextBox1.Text)
    End Sub

End Class

the simple left worked in the prev versions

[Jonthe838]

oh! ^^ thank u so much!!
i have another question... how do i do so a textbox shows some information?

[ReidE96]

Textbox1.Text = "Blah blah blah"

[visitor]

and textbox1.readonly = true (optional)

[Jonthe838]

nice! thx +rep after that i have spread :/

[Garosie]

I cant make it work in Visual Basic 2008 (Have changed button codes and such) so its vb 2008 codes, but nothing happens when i press.

[Jonthe838]

i got the same problem... im going to try to solve it but im not sure if i will able to :/