vb.net 结束ppt程序

Public Class Form1    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click        Dim plist() As Process        Dim ppo As System.Diagnostics.Process        plist = Process.GetProcesses        For Each ppo In plist            If ppo.ProcessName = "POWERPNT" Then                ppo.Kill()            End If        Next    End SubEnd Class