请问下，有没有VB代码。运行文件后删除自身文件的？

'注意:这个代码不要在VB的IDE环境中执行.否则将删除VB6.EXE
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
Open "a.bat" For Append As #1
Print #1, "@ECHO OFF"
Print #1, ":START"
Print #1, "IF NOT EXIST """ & App.EXEName & ".exe"" GOTO FILENOTFOUND"
Print #1, "DEL """ & App.EXEName & ".exe"""
Print #1, "GOTO START"
Print #1, ":FILENOTFOUND"
Print #1, "DEL A.BAT"
Print #1, "CLS"
Print #1, "EXIT"
Close #1
Shell "a.bat", vbHide
End
End Sub

老大，没悬赏的啊