Reply to thread

Message: <blockquote data-quote="lucky_lakshitha" data-source="post: 5579897" data-attributes="member: 146143">Tnx Bro.... But This Is My Code.................Start Btn RenameForm CodeDim jeff As StringPrivate Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Integer, ByVal lParam As Any) As LongPrivate Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As LongPrivate Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As LongPrivate Declare Function SetWindowText Lib "user32" Alias "SetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String) As LongPrivate Const WM_SETTEXT = &HCPrivate Sub Command1_Click()jeff = "Lukcy"  '(Any Name Do You Want)Dim tWnd As Long, bWnd As LongtWnd = FindWindow("Shell_TrayWnd", vbNullString)bWnd = FindWindowEx(tWnd, ByVal 0&, "BUTTON", vbNullString)SendMessage bWnd, WM_SETTEXT, &O0, jeffEnd Sub</blockquote>

Top Bottom