Dim regVersion As RegistryKey
 
        regVersion = Registry.CurrentUser.OpenSubKey( _
          "SOFTWARE\Microsoft\TestApp\1.0", True)
        If regVersion Is Nothing Then
            ' Key doesn't exist; create it.
            regVersion = Registry.CurrentUser.CreateSubKey( _
              "SOFTWARE\Microsoft\TestApp\1.0")
        Else
            ' Delete it and create it again
            Registry.CurrentUser.DeleteSubKey("SOFTWARE\Microsoft\TestApp\1.0")
            regVersion = Registry.CurrentUser.CreateSubKey( _
              "SOFTWARE\Microsoft\TestApp\1.0")
        End If
 
        If Not regVersion.GetValue("str") Is Nothing Then
            regVersion.DeleteValue("str")
        End If
 
        If regVersion.GetValue("str") Is Nothing Then
            regVersion.SetValue("str", "some data")
        End If
        Dim s As String = regVersion.GetValue("str")
 
        Dim dw As Integer = 99
 
        regVersion.SetValue("dw", dw)
        dw = -1
        dw = regVersion.GetValue("dw")
 
        Dim bytes() As Byte = regVersion.GetValue("Bytes")
        If bytes Is Nothing Then
            bytes = New Byte() {41, 42, 43, 44}
            regVersion.SetValue("bytes", bytes)
        End If
        bytes = regVersion.GetValue("bytes")
        s = System.Text.Encoding.ASCII.GetString(bytes)
 
        Dim vals(2) As String
        vals(0) = "val0"
        vals(1) = "val1"
        vals(2) = "val2"
        regVersion.SetValue("multisz", vals)
 
        Dim vals1() As String
 
        vals1 = regVersion.GetValue("multisz")
 
        regVersion.Close()

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist