将外部窗口嵌入本窗口运行

以上这部份可以不要,只要指定了一个窗口句柄就可以.
GetWindowRect (取窗口句柄 (), D) ' 取得一个窗口的矩形数据,这里是取本窗口大小
SetParent (B, 取窗口句柄 ()) ' 嵌入窗口
' MoveWindow (B, 0, 0, 0, D.Bottom － D.Top, 1) ' 改变嵌入窗口的位置与大小
SetWindowPos (B, 0, 0, 27, D.Right － D.Left － 5, D.Bottom － D.Top － 55, 64) ' 改变嵌入窗口的位置与大小
BringWindowToTop (取窗口句柄 ()) ' 提升窗口到最前列