好像不難吧？我放進了Button1的Click事件里。

PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.ClickOnErrorGoToErrmessages'在做系統操作時加排錯標簽是個好習慣DimTargetNameAsString="ibmdict"'存儲進程名為文本型，注：進程名不加擴展名DimTargetKill()AsProcess=Process.GetProcessesByName(TargetName)'從進程名獲取進程DimTargetPathAsString'存儲進程路徑為文本型IfTargetKill.Length>1Then'判斷進程名的數量，如果同名進程數量在2個以上，用For循環關閉進程。Fori=0ToTargetKill.Length-1TargetPath=TargetKill(i).MainModule.FileNameTargetKill(i).Kill()NextElseIfTargetKill.Length=0Then'判斷進程名的數量，沒有發現進程直接彈窗。

不需要的，可直接刪掉該If子句MsgBox("沒有發現進程！"

)ExitSubElseIfTargetKill.Length=1Then'判斷進程名的數量，如果只有一個，就不用For循環TargetKill(0).Kill()EndIfMsgBox("已終止"&TargetKill.Length&"個進程")'彈窗提示已終止多少個進程Errmessages:‘定義排錯標簽IfErr.Description<>NothingThen’判斷有無錯誤，如果有，則↓MsgBox(Err.Description)'當出現錯誤時，彈窗提示EndIfEndSub可根據需要自行修改，這個備注夠完善了吧？不會的再Hi我。