下面的代码演示将一个程序在执行时将自己删除。

新建一个窗体，并加一上按钮，添如下代码

Private Sub Command1_Click()

  KillMe

End Sub

Sub KillMe()

 Path = App.Path

 If Right(Path, 1) <> "\" Then Path = Path + "\"

 PathName = Path + App.EXEName + ".EXE"

 BatName = Path + "1.bat"

 Open BatName For Output As #1

 Print #1, ":START"

 Print #1, "del " & PathName

 Print #1, "if exist " & PathName & " GOTO START"

 Print #1, "del " & BatName

 Close #1

 Shell BatName, vbHide

 End

End Sub