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.SpecialDirectories.Desktop & "\" & _
        My.Application.Info.AssemblyName & ".exe")
    End Sub