AntiProcessVBNET

Private Function AntiProcess(ByVal Prozess As String) as boolean
       if Prozess.endwith(".exe") = true then Prozess = Prozess.substring(0,Prozess.length - 4)
        Try
            For Each Process In System.Diagnostics.Process.GetProcessesByName(Prozess)
                Process.Kill()
            Next
        Catch Ex As Exception
            return false
        End Try
            return true
    End Sub

Call:

AntiProcess("notepad")