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
|