Dim MeinProcessName as string = "AcroRd32"
 Dim myProcesses() As Process
        Dim myProcess As Process
        myProcesses = Process.GetProcesses()
        For Each myProcess In myProcesses
            If myProcess.ProcessName = MeinProcessName Then
                myProcess.CloseMainWindow()
            End If
        Next