VB自我销毁自我删除

Option Explicit

Private Declare Function GetModuleFileName Lib “kernel32” Alias “GetModuleFileNameA” (ByVal hModule As Long, ByVal lpFileName As String, ByVal nSize As Long) As Long
Private Declare Sub ExitProcess Lib “kernel32” (ByVal uExitCode As Long)

Private Sub KillMe()
Dim MyFilename As String
Dim tmp As String * 255
Dim l As Integer
l = GetModuleFileName(0, tmp, 255)
MyFilename = Mid(tmp, 1, l)
Shell “cmd /c del “”” & MyFilename & “”“”, vbHide
ExitProcess (0)
End Sub

Private Sub Command1_Click()
KillMe
End Sub