Imports System.Runtime.InteropServices
 
 
Public Class Form1
 
    Public Class Win32Api
 
        <DllImport("user32.dll", SetLastError:=True, CharSet:=CharSet.Auto)> _
        Public Shared Function ShowWindow( _
          ByVal hWnd As IntPtr, _
          ByVal nCmdShow As Integer) As Boolean
        End Function
 
 
        <DllImport("user32.dll", SetLastError:=True, CharSet:=CharSet.Auto)> _
        Public Shared Function SetParent( _
          ByVal hWndChild As IntPtr, _
          ByVal hWndNewParent As IntPtr) As IntPtr
        End Function
 
 
        Public Const SW_MAXIMIZE As Int32 = 1
 
 
    End Class
 
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
 
    End Sub
 
    Private Sub Button1_Click(ByVal sender As System.Object, _
       ByVal e As System.EventArgs) Handles Button1.Click
 
 
 
        Const APP_NAME As String = "C:\Programme\Avaya\Avaya IP" & _
          "Agent\IpAgent.exe"
 
        ' Prozedur mit dem Dateiname <APP_NAME> und das benötigte 
        ' Anzeigefenster aufrufen.
        SetApplicationAsChild(APP_NAME, Panel1)
 
 
    End Sub
 
 
 
    Private Sub SetApplicationAsChild(ByVal CallingApplication As String, _
    ByVal p As System.Windows.Forms.Panel)
 
        ' Fehlerbehandlung einschalten.
        Try
            ' Process starten ( ... notepad.exe ... ).
            Dim hProcess As System.Diagnostics.Process = _
                System.Diagnostics.Process.Start(CallingApplication)
            ' Siehe (... WaitForInputIdle ...)
            hProcess.WaitForInputIdle()
 
            ' Parent Fenster setzen.
            Win32Api.SetParent(hProcess.MainWindowHandle, p.Handle)
            'Fenster anzeigen.
            Win32Api.ShowWindow(hProcess.MainWindowHandle, Win32Api.SW_MAXIMIZE)
        Catch ex As Exception
            ' Fehlerbeschreibung bei auftretenden Fehler anzeigen.
            MessageBox.Show(ex.Message.ToString(), "Info")
        End Try
    End Sub
 
 
 
 
End Class