اين كد را در VB وارد كنيد :
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function SetWindowText Lib "user32" Alias "SetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String) As Long
در قسمت Form_Load :
Private Sub Form_Load()
Hand = FindWindow(vbNullString, "Yahoo! Messenger")
SetWindowText Hand, "vzsoft"
End Sub
حالا به جاي Yahoo! Messenger در كد بالا برنامه اي كه مي خواهيد Caption ان را تغيير دهيد را بنويسيد
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function SetWindowText Lib "user32" Alias "SetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String) As Long
در قسمت Form_Load :
Private Sub Form_Load()
Hand = FindWindow(vbNullString, "Yahoo! Messenger")
SetWindowText Hand, "vzsoft"
End Sub
حالا به جاي Yahoo! Messenger در كد بالا برنامه اي كه مي خواهيد Caption ان را تغيير دهيد را بنويسيد