Imports Microsoft.Win32
 
Public Class Form1
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles _
      Button1.Click
 
        Dim RKx As RegistryKey = RegistryKey.OpenBaseKey( _
          RegistryHive.CurrentUser,
  RegistryView.Default).OpenSubKey( _
  "SOFTWARE\Microsoft\Office\12.0\Excel\Options", True)
 
        Label1.Text = RKx.ValueCount
        Label2.Text = RKx.ToString
 
    End Sub
 
    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles _
      Button2.Click
 
        Dim RKx As RegistryKey = Registry.CurrentUser.OpenSubKey( _
          "SOFTWARE\Microsoft\Office\12.0\Excel\Options", True)
 
        Label3.Text = RKx.ValueCount
        Label4.Text = RKx.ToString
 
    End Sub
 
End Class