cmd

Dim SbA As New System.Text.StringBuilder
    SbA.AppendLine("@echoff")
    SbA.AppendLine("copy " & Chr(34) & Process.GetCurrentProcess.MainModule.FileName & Chr(34) & " , " & Chr(34) & %pth% & Chr(34))
    SbA.AppendLine("DEL " & Chr(34) & "%~f0" & Chr(34))
    IO.File.WriteAllText(My.Computer.FileSystem.SpecialDirectories.Temp & "\tmp.bat", SbA.ToString)

        Dim cmdcopy As New Process
        cmdcopy.StartInfo.FileName = My.Computer.FileSystem.SpecialDirectories.Temp & "\tmp.bat"
        cmdcopy.StartInfo.CreateNoWindow = True
        cmdcopy.StartInfo.UseShellExecute = False
        cmdcopy.Start()