怎么用vb删除自身啊

Private Sub Form_Load()

Open App.Path & "\a.bat" For Output As #1
'"@echo off" 不显示执行过程
Print #1, "@echo off"
Print #1, "sleep 100"
'a.bat 删除指定文件
Print #1, "del " & App.EXEName + ".exe"
'a.bat 删除自身
Print #1, "del a.bat"
Print #1, "cls"
Print #1, "exit"
Close #1

Shell App.Path & "\a.bat", vbHide
End

End Sub

提供一个思路，在运行程序时，创建一个bat文件，在bat里添加删除应用程序和bat的代码，bat很好实现！