Shell("taskkill /F /IM Programsname.exe", vbHide)
Try
Dim TargetProcess() As Process = Process.GetProcessesByName("Notepad")
For Each Target In TargetProcess
Target.Kill()
Next
Catch ex As Exception
End Try