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