VB.Net/Windows System/Registry

Read and write with Registry

  
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

Saving to the Registry

  
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