在VB（Visual Basic）中，退出自身程序的方法有多种，以下是一些常见的方法：
使用 `End` 语句
在程序中的任何位置使用 `End` 语句可以立即终止程序的执行。例如：
```vb
Sub Main（）
' 程序代码
End
End Sub
```
或者在按钮的单击事件中：
```vb
Private Sub Command1_Click（）
End
End Sub
```
使用 `Unload Me` 语句
`Unload Me` 语句可以卸载当前窗体，从而退出程序。例如：
```vb
Private Sub Command1_Click（）
Unload Me
End Sub
```
但请注意，`Unload Me` 可能会导致一些问题，例如数据库数据无法正常写入等。
使用 `ExitProcess` 函数
通过调用 `ExitProcess` 函数可以结束整个进程。首先需要声明该函数，然后调用它。例如：
```vb
Public Declare Sub ExitProcess Lib "kernel32" （ByVal uExitCode As Long）
Sub Main（）
' 程序代码
ExitProcess（0）
End Sub
```
使用 `Shell` 函数执行命令
可以使用 `Shell` 函数执行命令来结束进程。例如：
```vb
Private Sub Command1_Click（）
Shell "cmd /c taskkill /im myprogram.exe /f", vbHide
End Sub
```
这将隐藏命令提示符窗口并终止指定的进程。
使用 `Process.Kill` 方法
如果需要强制结束一个进程，可以使用 `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
```
建议
避免使用 `Unload Me`：除非你确实需要卸载窗体并且了解其潜在影响。
使用 `End` 或 `ExitProcess`：在大多数情况下，使用 `End` 或 `ExitProcess` 是最简单和安全的方法来退出程序。
考虑进程管理：如果程序需要管理其他进程，使用 `Process.Kill` 方法时要格外小心，以免意外终止其他重要进程。
希望这些方法能帮助你顺利退出VB程序。