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