在Visual Basic（VB）中，结束程序的方法取决于你所使用的VB版本和环境。以下是一些常见的方法：
使用 `End` 语句
在VB6中，可以使用 `END` 语句来结束程序。
在VB2005及更高版本中，可以使用 `Me.Close` 来关闭当前窗体，或者使用 `End` 语句来结束整个程序。
使用命令按钮
创建一个按钮，并在其单击事件中编写 `End` 语句。例如：
```vb
Private Sub CommandButton1_Click（）
End
End Sub
```
使用 `Unload` 语句
在VB6中，可以使用 `Unload Me` 来卸载当前窗体并结束程序。
使用 `Process.Kill` 方法（适用于VB.NET）：
如果你使用的是VB.NET，可以使用 `System.Diagnostics.Process` 类的 `Kill` 方法来强制结束一个进程。例如：
```vb
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
```
使用 `ExitProcess` 函数（适用于VB6及更早版本）：
在VB6及更早版本中，可以使用 `ExitProcess` 函数来结束当前进程。例如：
```vb
Private Declare Function ExitProcess Lib "kernel32" （ByVal dwExitCode As Long） As Boolean
Sub ExitProgram（）
ExitProcess 0
End Sub
```
根据你的具体需求和使用的VB版本，可以选择合适的方法来结束程序。如果你需要在关闭窗体的同时结束程序，可以使用 `Me.Close` 或 `Unload Me`。如果你需要强制结束一个进程，可以使用 `Process.Kill` 方法。在VB6中，还可以使用 `End` 或 `ExitProcess` 函数。
