Set EXE parent to Form

Original Post by Martin Xie

     Public Shared Function SetParent(ByVal instr As IntPtr, ByVal outstr As IntPtr) As IntPtr

    End Function

    Private Sub startProcess()
        Dim p As Process
        p = Process.Start("notepad.exe")
        Threading.Thread.Sleep(100)
        SetParent(p.MainWindowHandle, Me.Handle)
        Application.DoEvents()
    End Sub

Advertisements