Public Sub RunOnStart(ByVal Libele As String, ByVal Fichier As String)
Dim Key As Microsoft.Win32.RegistryKey = Microsoft.Win32.Registry.CurrentUser.OpenSubKey("SOFTWARE\\Microsoft\\Windows\\CurrentVersion\\Run", True)
Key.SetValue(Libele, Fichier)
Key.Close()
Key = Nothing
End Sub