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)
 
        If (Not regVersion Is Nothing) Then
            regVersion.Close()
        End If

regVersion.SetValue("dw", dw)

regVersion.SetValue("bytes", bytes)