VB.Net/Windows System/Registry

Read and write with Registry

<source lang="vbnet"> Imports Microsoft.Win32 Public Class RegistryReader

   Public Shared Sub SaveSize()
       Dim rk As RegistryKey
       rk = Registry.LocalMachine.CreateSubKey("Software\Acme\TestApp\")
       rk.SetValue("Height", 1)
       rk.SetValue("Width", 2)
       rk.SetValue("Left", 3)
       rk.SetValue("Top", 4)
   End Sub
   Public Shared Sub SetSize()
       Dim rk As RegistryKey
       rk = Registry.LocalMachine.OpenSubKey("Software\Acme\TestApp\")
       System.Console.WriteLine(CType(rk.GetValue("Height", 1), Integer))
       System.Console.WriteLine(CType(rk.GetValue("Width", 2), Integer))
       System.Console.WriteLine(CType(rk.GetValue("Left", 3), Integer))
       System.Console.WriteLine(CType(rk.GetValue("Top", 4), Integer))
   End Sub

End Class

 </source>

Saving to the Registry

<source lang="vbnet"> Module MainModule

   Public Function ReadFromRegistry(ByVal Location As String, ByVal Name As String)
       Dim MyKey As Microsoft.Win32.RegistryKey
       MyKey = Microsoft.Win32.Registry.CurrentUser.OpenSubKey(Location)
       ReadFromRegistry = MyKey.GetValue(Name)
       MyKey.Close()
   End Function
   Public Sub WriteToRegistry(ByVal Location As String, ByVal Name As String, ByVal Data As String)
       Dim MyKey As Microsoft.Win32.RegistryKey
       MyKey = Microsoft.Win32.Registry.CurrentUser.CreateSubKey(Location)
       MyKey.SetValue(Name, Data)
       MyKey.Close()
   End Sub

End Module

 </source>