Sub SetKey()
Dim rk As Microsoft.Win32.RegistryKey
rk = Microsoft.Win32.Registry.LocalMachine.CreateSubKey("software\revoshift\webhost toolbox\")
If Not rk Is Nothing Then
If rk.SetValue("valid") = "true" Then
MessageBox.Show("Yippe")
End If
End If
End Sub
Sub SetKey()
Dim rk As Microsoft.Win32.RegistryKey
rk = Microsoft.Win32.Registry.LocalMachine.CreateSubKey("software\revoshift\webhost toolbox\")
rk.SetValue("Valid") = "True"
End Sub
rk.SetValue("Valid","True")