在Visual Basic（VB）中，有多种方法可以自动终止程序。以下是几种常见的方法：
使用`End`语句
在程序的关键位置添加`End`语句可以直接退出程序。例如：
```vb
End
```
或者在不需要窗体的情况下，可以使用`Unload Me`来关闭当前窗体，然后结束程序：
```vb
Unload Me
End
```
使用`System.Diagnostics.Process.Kill`方法
通过`Process.Kill`方法可以强制结束一个正在运行的进程。首先需要获取进程的句柄，然后调用`Kill`方法。例如：
```vb
Imports System.Diagnostics
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
```
使用任务管理器
可以通过按下`Ctrl + Alt + Delete`键打开任务管理器，然后在“进程”选项卡中找到要终止的VB程序进程，右键单击并选择“结束任务”。
使用命令行
打开命令提示符窗口，输入以下命令来强制结束VB程序：
```
taskkill /f /im program.exe
```
其中`program.exe`是要结束的VB程序的名称。
使用API函数
可以使用`ExitProcess` API函数来结束当前进程。例如：
```vb
Public Declare Sub ExitProcess Lib "kernel32" Alias "ExitProcess" （ByVal uExitCode As Long）
ExitProcess（0）
```
使用WMI（Windows Management Instrumentation）
通过WMI可以查询和终止进程。例如：
```vb
Dim bag As Object = GetObject（"winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2"）
Dim pipe As Object = bag.ExecQuery（"SELECT * FROM Win32_Process WHERE Name='QQ.exe'"）
For Each i In pipe
i.Terminate（）
Next
```
选择哪种方法取决于具体的应用场景和需求。如果需要从VB程序内部自动终止另一个进程，使用`Process.Kill`或API函数`ExitProcess`是比较方便的方法。如果需要从外部终止VB程序，可以使用任务管理器或命令行。