[mohamed haroon]

كود :

Dim applicationName As String = Application.ProductName
      Dim applicationPath As String = Application.ExecutablePath
Dim regKey As Microsoft.Win32.RegistryKey
          regKey = Microsoft.Win32.Registry.CurrentUser.OpenSubKey("SOFTWARE\Microsoft\Windows\CurrentVersion\Run", True)
          regKey.SetValue(applicationName, """" & applicationPath & """")
          regKey.Close()