For Each p As Process In Process.GetProcessesByName("notepad")
Try
If p.CloseMainWindow() Then
MessageBox.Show("nice process close")
Else
p.Kill()
MessageBox.Show("oops, had to kill it :(")
End If
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
Next