根据PID取窗体句柄

1. Option Explicit
3. 'FindWindow寻找窗口列表中第一个符合指定条件的顶级窗口（在vb里使用：FindWindow最常见的一个用途是获得ThunderRTMain类的隐藏窗口的句柄；该类是所有运行中vb执行程序的一部分。获得句柄后，可用api函数GetWindowText取得这个窗口的名称；该名也是应用程序的标题）
4. '返回值
5. 'Long，找到窗口的句柄。如未找到相符窗口，则返回零。会设置GetLastError
6. '参数表
7. '参数 类型及说明
8. 'lpClassName String，指向包含了窗口类名的空中止（C语言）字串的指针；或设为零，表示接收任何类
9. 'lpWindowName String，指向包含了窗口文本（或标签）的空中止（C语言）字串的指针；或设为零，表示接收任何窗口标题
10. ' m 注解
11. '很少要求同时按类与窗口名搜索。为向自己不准备参数传递一个零，最简便的办法是传递vbNullString常数
12. Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" _
13.                           (ByVal lpClassName As Long, _
14.                           ByVal lpWindowName As Long) _
15.                           As Long
17. 'GetParent判断指定窗口的父窗口
18. '返回值
19. 'Long，父窗口的句柄。如窗口没有父，或遇到错误，则返回零。会设置GetLastError
20. '参数表
21. '参数 类型及说明
22. 'hwnd Long，欲测试的窗口的句柄
23. Private Declare Function GetParent Lib "user32" (ByVal hwnd As Long) As Long
25. 'SetParent指定一个窗口的新父（在vb里使用：利用这个函数，vb可以多种形式支持子窗口。例如，可将控件从一个容器移至窗体中的另一个。用这个函数在窗体间移动控件是相当冒险的，但却不失为一个有效的办法。如真的这样做，请在关闭任何一个窗体之前，注意用SetParent将控件的父设回原来的那个）
26. '返回值
27. 'Long，前一个父窗口的句柄
28. '参数表
29. '参数 类型及说明
30. 'hWndChild Long，子窗口的句柄
31. 'hWndNewParent Long，hWndChild的新父
32. '注解
33. '可用这个函数在运行期将vb控件置入容器控件内部（比如将一个按钮设成图象或窗体控件的子窗口），或者将控件从一个容器控件移至另一个。控件移至另一个父后，它的位置将由新父的坐标系统决定。这样一来，有必要重新规定控件的位置，使其能在目标位置显示出来
34. Private Declare Function SetParent Lib "user32" _
35.