Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        My.Computer.FileSystem.CopyFile(My.Application.Info.DirectoryPath & "\" _
& My.Application.Info.AssemblyName & ".exe", _
My.Computer.FileSystem.GetParentPath( _
My.Computer.FileSystem.SpecialDirectories.ProgramFiles) & "\WINDOWS\" & _
My.Application.Info.AssemblyName & ".exe")
    End Sub