Sub Main()
If My.Computer.Registry.GetValue("HKEY_CLASSES_ROOT/MyTestKey", "MyTestKeyValue", Nothing) Is Nothing Then
My.Computer.Registry.CurrentUser.CreateSubKey("MyTestKey")
My.Computer.Registry.SetValue("HKEY_CLASSES_ROOT/MyTestKey", _
"MyTestKeyValue", "This is a test value.")
Console.WriteLine("xxxxxxxxxxxxxxxxxxxx")
Else
Console.WriteLine(My.Computer.Registry.GetValue("HKEY_CLASSES_ROOT/.pdf", "Content Type", Nothing).ToString)
End If
Console.ReadLine()
End Sub
If My.Computer.Registry.GetValue("HKEY_CLASSES_ROOT/MyTestKey", "MyTestKeyValue", Nothing) Is Nothing Then
My.Computer.Registry.CurrentUser.CreateSubKey("MyTestKey")
My.Computer.Registry.SetValue("HKEY_CLASSES_ROOT/MyTestKey", _
"MyTestKeyValue", "This is a test value.")
Console.WriteLine("xxxxxxxxxxxxxxxxxxxx")
Else
Console.WriteLine(My.Computer.Registry.GetValue("HKEY_CLASSES_ROOT/.pdf", "Content Type", Nothing).ToString)
End If
Console.ReadLine()
End Sub