Private Sub btnOK_Click(sender As System.Object, e As System.EventArgs) Handles _
  btnOK.Click
 
        Dim Rechnername As String = "DeinRechnername"
 
        Try
            If My.Computer.Network.Ping(Rechnername) Then
                ProzesseAuflisten(Rechnername)
            Else
                MessageBox.Show("Dieser Rechner ist im Netzwerk nicht" & _
                  "erreichbar!")
            End If
        Catch ex As Exception
            MessageBox.Show("Fehler")
        End Try
 
        Dim returnValue As Process()
 
        returnValue = Process.GetProcesses(Rechnername)
 
    End Sub
 
    Private Sub ProzesseAuflisten(ByVal Rechnername As String)
        Dim remoteByID As Process
        Dim returnValue As Process()
 
        returnValue = Process.GetProcesses(Rechnername)
 
        For Each p As Process In returnValue
            If p.ProcessName = "Prozessname" Then
                If ProzessNormalBeenden(Rechnername, p) = False Then
                    If ProzessBrutalBeenden(Rechnername, p) = False Then
                        MessageBox.Show("Der Prozess konnte nicht beendet" & _
                          "werden!", "Hinweis:")
                    End If
                End If
            End If
        Next
    End Sub
 
    Private Function ProzessNormalBeenden(ByVal Rechnername As String, p As _
      Process) As Boolean
        Try
            p.CloseMainWindow()
        Catch ex As Exception
            Return False
            Exit Function
        End Try
 
        Return True
 
    End Function
 
    Private Function ProzessBrutalBeenden(ByVal Rechnername As String, p As _
      Process) As Boolean
        Try
            p.Kill()
        Catch ex As Exception
            Return False
            Exit Function
        End Try
 
        Return True
 
    End Function

EALA FREYA FRESENA