Imports System.Diagnostics
...
Public Function CloseWindowFromTitle(ByVal WindowTitle As String) As Boolean
  Dim oProcessList As Process() = Process.GetProcesses
  Dim oProcess As Process
  Dim bResult As Boolean = False
 
  ' Porzesse der Reihe nach durchlaufen
  For Each oProcess In oProcessList
    With oProcess
      If .MainWindowTitle = TextBox1.Text Then
        oProcess.CloseMainWindow()
        bResult = True
        Exit For
      End If
    End With
  Next
  Return bResult
End Function

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de