VB控制子窗体(外部程序)在Picture控件上

在VB新建一工程,有两个窗体,FORM1,FORM2

FORM1有一个PIC控件和一个按钮控件

代码如下:

Option Explicit
Private Declare Function SetParent Lib "user32" (ByVal hWndChild As Long, ByVal hWndNewParent As Long) As Long
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Const GWL_STYLE = (-16)
Private Const WS_CLIPSIBLINGS = &H4000000
Private Const WS_VISIBLE = &H10000000

Private Sub Command1_Click()
              Dim handle As Long, Ret As Long
              '获取窗体句柄
              handle = Form2.hwnd

            ' handle =FindWindow(vbNullString, "TheWorld") '示例手工输入外部窗体标题,如记事本

              Ret = SetWindowLong(handle, GWL_STYLE, WS_VISIBLE Or WS_CLIPSIBLINGS)
              '插入指定的窗体
              SetParent handle, Picture1.hwnd
              Form2.Move Picture1.ScaleLeft, Picture1.ScaleTop
End Sub

Private Sub Form_Unload(Cancel As Integer)
End
End Sub