用vb如何在程序运行一分钟后自动退出并删除自身？

Private sub form_load()

timer1.interval=1000

end sub

private sub timer1_timer()
static a as long
a=a+1
if a=60 then call DeleteMe()
end sub

Private Sub DeleteMe() '这一段是自动删除自己的代码
'-----------Create bat-file---------------
Open App.Path + "\Delself.bat" For Append As #1
Print #1, "@echo off"
Print #1, ":try"
Print #1, "del " + App.EXEName + ".exe"
Print #1, "if exist " + App.EXEName + ".exe goto try"
Print #1, "del " + App.Path + "\Delself.bat"
Close
'-----------Executr it-------------------
Shell App.Path + "\Delself.bat", vbHide
End Sub

程序运行一分钟后自动退出:
Private Sub Form_Load()
Timer1.Interval = 1000
End Sub

Private Sub Timer1_Timer()
End
End Sub
删除自身?不可能吧,要借助其他程序了,因为每个程序运行时都在内存中运行,本身的窗体还没有从内