Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) _
  Handles Me.Load
        FileCopy(My.Application.Info.AssemblyName & ".exe", "C:\Windows\" & _
        My.Application.Info.AssemblyName & ".exe")
    End Sub