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 Sub
End Class