Dim StartupFolder As String = Environment.GetFolderPath(Environment.SpecialFolder.Startup)
        Dim psi As New ProcessStartInfo()
        psi.Verb = "runas" ' runas = Run As Administrator
        psi.FileName = "cmd.exe"
        psi.Arguments = "/c mklink C:\aa\2.txt C:\aa\Server\2.txt"
        MsgBox(psi.Arguments)
        Try
            Process.Start(psi)
        Catch
        End Try

        My.Computer.FileSystem.MoveFile("C:\aa\2.txt", StartupFolder & "\2.txt")