Private Sub DocMgrToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DocMgrToolStripMenuItem.Click

Dim AppPath As String = "c:\MyVfpAppFolder\"

Dim App2Run As String = "MyGreatFoxProApp.exe"

Dim loStart As New System.Diagnostics.ProcessStartInfo(AppPath + App2Run)

loStart.WindowStyle = Diagnostics.ProcessWindowStyle.Normal

'loStart.UseShellExecute = False

Dim oProcess As System.Diagnostics.Process = System.Diagnostics.Process.Start(loStart)

'oProcess.WaitForInputIdle(3000)

Do While oProcess.MainWindowHandle.ToInt32() = 0

Loop

Dim lnHandle As Integer = oProcess.MainWindowHandle.ToInt32()

SetParent(lnHandle, Me.Handle)

End Sub