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