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