Dim key As Microsoft.Win32.RegistryKey = Microsoft.Win32.Registry.LocalMachine
dim RegistryKey class and set it to LocalMachine
key = key.OpenSubKey("Path to the key", True)
open the sub key
key.SetValue("YourAPP", "PATH") create new entry
key.Close() close and flush the key
key.DeleteValue("YourAPP") delete the entry
Dim key As Microsoft.Win32.RegistryKey = Microsoft.Win32.Registry.LocalMachine