caducidad y regedit

[Dynk]

para crear una entrada en el registro:

Public Const rutaClave As String = "SOFTWARE\Microsoft\Windows\CurrentVersion\Run "
(es la ruta donde quieres crearla)

Dim clave As RegistryKey
clave = Registry.LocalMachine.OpenSubKey(rutaClave, True)
If IsNothing(clave)

'crear la clave
clave = Registry.CurrentUser.CreateSubKey(rutaClave)
clave .SetValue(NombreDeLaClave, Valor)
clave .Close()
clave = Nothing

Si existe:
clave.SetValue(NombreDeLaClave, Valor)