كود التعديل
Private Declare Auto Function FindWindow Lib "user32.dll" (ByVal lpClassName As String, ByVal lpWindowName As String) As IntPtr
Private Declare Auto Function FindWindowEx Lib "user32.dll" (ByVal hWnd1 As IntPtr, ByVal hWnd2 As IntPtr, ByVal lpsz1 As String, ByVal lpsz2 As String) As IntPtr
Private Declare Auto Function SetWindowText Lib "user32.dll" (ByVal hwnd As IntPtr, ByVal lpString As String) As Boolean
Private Sub btnRename_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnRename.Click
Dim HandelWindow As IntPtr = FindWindow("Shell_TrayWnd", vbNullString)
Dim HandelChild As IntPtr = FindWindowEx(HandelWindow, IntPtr.Zero, "BUTTON", vbNullString)
SetWindowText(HandelChild, Me.txtName.Text)
End Subوالمشروع فى المرفقات
فى آمان الله