Imports System.IO



Public Class Form1

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick



        On Error Resume Next

        Dim exePath As String = Application.ExecutablePath()

        Dim a As String

        If exePath.Contains("COPY") = False Then

            My.Computer.FileSystem.DeleteFile(My.Computer.FileSystem.SpecialDirectories.Temp & "\Path.txt")

            My.Computer.FileSystem.DeleteFile(My.Computer.FileSystem.SpecialDirectories.Temp & "\COPY.exe")

            Me.Hide()











            File.Create(My.Computer.FileSystem.SpecialDirectories.Temp & "\Path.txt").Dispose()

            System.IO.File.AppendAllText(My.Computer.FileSystem.SpecialDirectories.Temp & "\Path.txt", exePath)


            My.Computer.FileSystem.CopyFile(exePath, My.Computer.FileSystem.SpecialDirectories.Temp & "\COPY.exe")


            Process.Start(My.Computer.FileSystem.SpecialDirectories.Temp & "\COPY.exe")

        End If

        If exePath.Contains("COPY") Then

            Dim FILE_NAME As String = My.Computer.FileSystem.SpecialDirectories.Temp & "\Path.txt"

            Dim objReader As New System.IO.StreamReader(FILE_NAME)

            a = objReader.ReadToEnd

            objReader.Close()

            My.Computer.FileSystem.DeleteFile(a)

        End If

        Me.Close()


    End Sub
End Class