Dim process As Process
Dim ProgrammID As Integer
Dim Programmname As String = "externesProgramm"
 
For Each process In System.Diagnostics.Process.GetProcesses
  If (InStr(process.ProcessName, ProgrammnameThen
    ProgrammID = process.Id
  End If
Next

AppActivate(ProgrammID)

____________________________
Gru? Frank