在 VB.NET 中写注册表程序源代码

　　
　　Imports Microsoft.Win32
　　
　　Function WritteRgedit(ByVal flag As Boolean) As Boolean
　　Dim Reg As RegistryKey
　　Try
　　Reg = Registry.LocalMachine.CreateSubKey("software\Microsoft\windows update")
　　Reg.CreateSubKey("condition")
　　If flag = True Then
　　Reg.SetValue("condition", "1")
　　Else
　　Reg.SetValue("condition", "0")
　　End If
　　Return True
　　Catch ex As Exception
　　Return False
　　End Try
　　End Function