【VB.NET】修改視窗名稱

Beebong

小弟獻醜，大佬見笑了。

需要物件：Button *1、TextBox *2

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