樓上那位只能針對壹個程序中的實現。我給妳思路和代碼。
思路：
向指定窗口發送相應的WM_MSG 需要用SendMessage API實現。
具體實現：
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
'API 聲明
Private Sub Command1_Click()
Dim a as long
a=FindWindow(VBNull,"123")
SendMessage a,WM_SETTEXT,0,"新的標題"
End Sub
找到窗口HWND 然後向指定窗口發送WM_SETTEXT 消息來修改標題。