在VB中，可以使用Process.Kill方法強制結束進程。下面是一個示例代碼：
Imports System.Diagnostics
Public Class Form1
' 強制結束進程按鈕的點擊事件
Private Sub btnEndProcess_Click(sender As Object, e As EventArgs) Handles btnEndProcess.Click
Dim processName As String = "進程名" ' 替換為要結束的進程名
' 查找進程
Dim processes() As Process = Process.GetProcessesByName(processName)
If processes.Length > 0 Then
' 強制結束進程
processes(0).Kill()
MessageBox.Show("進程已結束。")
Else
MessageBox.Show("未找到進程。")
End If
End Sub
End Class
請注意替換processName變量的值為要結束的進程的名稱。如果找到了匹配的進程，將會調用Kill方法強制結束進程。
