Private Sub Button3_Click(sender As System.Object, e As System.EventArgs) Handles Button3.Click
' 取得所以 Process清單
Dim pro() As Process = System.Diagnostics.Process.GetProcesses()
' 判斷是否有符合的Process
For Each process As Process In pro
If ("calc").Equals(process.ProcessName) Then
process.Kill()
End If
Next