رهيب رائع تعلم كيف ينم تغير عنوان زر إبدأ

السلام عليكم

سنتعلم في هذا المثال كيفية تغير أسم زر start في الويندوز الى أي أسم ترغب به. كل ماتحتاجه لبناء مشروعك فورم و command button و TextBox

هذا الكو د في الفورم

Option Explicit 
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 

Private Const WM_SETTEXT = &HC 
Private Const WM_GETTEXT = &HD 



Private Sub Command1_Click() 
Dim StartBar As Long 
Dim StartBarText As Long 
Dim sCaption As String 

StartBar = FindWindow("Shell_TrayWnd", vbNullString) 
StartBarText = FindWindowEx(StartBar, 0&, "button", vbNullString) 

sCaption = Text1 
SendMessageSTRING StartBarText, WM_SETTEXT, 256, sCaption

وشكراً