تغير عنوان زر إبدأ فى شريط المهام

اذا اردت ان تغير عنوان زر إبدأ فى شريط المهام

اكتب هذا الكود

كود:

Dim jeff As String

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Integer, ByVal lParam As Any) As Long

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassN*** As String, ByVal lpWindowN*** 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 SetWindowText Lib "user32" Alias "SetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String) As Long

Private Const WM_SETTEXT = &HC

Private Sub Command1_Click()

MsgBox "åÐÇ ÇáÈÑäÇãÌ íÞæã ÈÊÛííÑ ßáãÉ ÅÈÏà Ýì ÔÑíØ ÇáãåÇã Åáì ÇáßáãÉ ÇáÊì ÓÊßÊÈåÇ Ýì ãÑÈÚ ÇáÅÏÎÇá", vbInformation, "ÈÑäÇãÌ ÊÛííÑ ÚäæÇä ÒÑ ÅÈÏÃ-ÈÑãÌÉ ãÓÊÑ ÓÇãÍ"

jeff = InputBox("ÃßÊÈ ÇáßáãÉ ÇáÊì ÊÑíÏ Ãä ÊÙåÑ ãßÇä ßáãÉ ÅÈÏÃ", "ãÑÈÚ ÅÏÎÇá", "Start")

Dim tWnd As Long, bWnd As Long

tWnd = FindWindow("Shell_TrayWnd", vbNullString)

'Get the start-button's window handle

bWnd = FindWindowEx(tWnd, ByVal 0&, "BUTTON", vbNullString)

SendMessage bWnd, WM_SETTEXT, &O0, jeff

'SetWindowText bWnd, Text1.Text

End

End Sub

Private Sub Form_Load()

End Sub

اإن شاء الله تكونوا قد فهمتم الكود :P