Module:
Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Int32
Public hwnd As Integer
<DllImport("user32.dll")> Function SetWindowText(ByVal hwnd As IntPtr, ByVal lpString As String) As Integer
End Function
Public Sub ReadTitle(ByVal RDTitle As String)
hwnd = FindWindow(vbNullString, RDTitle) '讀取指定程式視窗
End Sub
Public Sub ModTitle(ByVal RDFormText As TextBox, ByVal MDFormText As TextBox)
ReadTitle(RDFormText.Text)
SetWindowText(hwnd, MDFormText.Text)
End Sub
Form:
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
ModTitle(TextBox1, TextBox2)
End Sub