*VB 自杀程序*解决办法

******VB 自杀程序******
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

以上这段代码不但删不了我的程序，连生成的1.bat也删不了。不知还有没有什么切实可行的自杀办法？

[解决办法]
BAT内容貌似不对.

懒得改了,直接使用我收藏的这个吧:

http://www.m5home.com/bbs/viewthread.php?tid=2798&page=1

这是测试通过的.......