Imports System
Imports Microsoft.Win32
 
Public Class Form1
    Inherits System.Windows.Forms.Form
 
........
 
    Dim Key As String = "Software\Test"
    Dim oKey As RegistryKey
 
    Private Sub btnCreate_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles btnCreate.Click
 
        Dim objRegEntry As RegistryKey
        objRegEntry = Registry.CurrentUser.OpenSubKey(Key, True)
        If objRegEntry Is Nothing Then
            objRegEntry = Registry.CurrentUser.CreateSubKey(Key)
        End If
        If (Not objRegEntry Is Nothing) Then
            objRegEntry.SetValue("Version", "3.1")
            objRegEntry.SetValue("Left", "100")
            objRegEntry.SetValue("Top", "20")
            objRegEntry.Close()
        End If
 
    End Sub
    Private Sub btnRead_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles btnRead.Click
 
        Dim objRegEntry As RegistryKey
        lstReg.Items.Clear()
        objRegEntry = Registry.CurrentUser.OpenSubKey(Key)
 
        If (Not objRegEntry Is Nothing) Then
            Dim Inhalt As Array
            Inhalt = objRegEntry.GetValueNames
            Dim Daten As String
 
            For Each Daten In Inhalt
                lstReg.Items.Add("Key :" & Daten & "   " & "Setting: " & _
                  objRegEntry.GetValue(Daten))
            Next
            objRegEntry.Close()
        End If
    End Sub
    Private Sub btnDelete_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles btnDelete.Click
 
        Registry.CurrentUser.DeleteSubKey(Key, False)
 
    End Sub
End Class

Hänk

(Wer früh aufsteht hat mehr vom Tag)