VB如何查找线程窗口标题并修改

我以计算器为例。建一个Command1。
代码如下。
＝＝＝＝＝＝＝＝＝＝＝
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
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

Private Sub Command1_Click()
Dim h As Long
Shell "calc"
Sleep 1000
h = FindWindow(vbNullString, "计算器")
SetWindowText h, "你的名字"
End Sub