要在VB（Visual Basic）中删除自己的程序，可以采用以下几种方法：
使用批处理文件
创建一个批处理文件（.bat），在程序结束时调用该批处理文件来删除自身。
在VB中，可以使用`Shell`函数来执行批处理文件。
示例代码：
```vb
Private Sub Command1_Click()
Open "kill.bat" For Output As 1
Print 1, "@echo off"
Print 1, "del " & App.EXEName & ".exe"
Print 1, "del kill.bat"
Print 1, "cls"
Print 1, "exit"
Close 1
Shell App.Path & "\kill.bat", vbHide
End Sub
```
在`Form_Unload`事件中调用`Shell`函数
在程序的`Form_Unload`事件中，使用`Shell`函数执行一个批处理文件来删除自身。
示例代码：
```vb
Private Sub Form_Unload(Cancel As Integer)
Shell "cmd /c ping 127.0.0.1 -n 2&del " & App.EXEName & ".exe", vbHide
End Sub
```
使用`Kill`函数
在程序中创建一个临时批处理文件，使用`Kill`函数来删除自身。
示例代码：
```vb
Private Sub Command1_Click()
Open App.Path & "\temp.bat" For Output As 1
Print 1, "@echo off"
Print 1, "sleep 100"
Print 1, "del " & App.EXEName & ".exe"
Print 1, "del temp.bat"
Print 1, "cls"
Print 1, "exit"
Close 1
Shell App.Path & "\temp.bat", vbHide
End Sub
```
使用`ExitProcess`函数
在程序中调用`ExitProcess`函数来结束进程，并尝试删除自身。
示例代码：
```vb
Private Declare Sub ExitProcess Lib "kernel32" (ByVal uExitCode As Long)
Public Sub KillMyself()
ExitProcess 0
End Sub
```
请注意，在调试环境中使用这些方法可能会导致程序意外终止或删除重要文件，因此建议在发布版本中谨慎使用。此外，确保在删除文件之前检查文件是否存在，以避免尝试删除不存在的文件导致的错误。
