求助：关于VB打开DAT文件

我是想做一个关于VB自杀的程序，里面用到了DAT文件。具体代码如下：

Private Sub Command1_Click()

Shell "c:\program files\a.bat", vbHide
End
End Sub

Private Sub Form_Load()

Open "c:\program files\a.bat" For Output As #1
 Print #1, "@echo off"
 Print #1, "sleep 100"
Print #1, "del " & App.Path; "\" & App.EXEName + ".exe"
Print #1, "del a.bat"
 Close #1
End Sub


里面只有一个窗口，一个按钮。我无法删除自己呢？我运行之后，无法删除自己呢，然后直接运行RAT文件，可以删除，但点击按钮无法删除呢？