VB注册表操作？

我想获取注册表下HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Folder\Hidden\SHOWALL\CheckedValue的数值，要知道它设置的是1还是2，以及如何删除它，麻烦各位大虾赐教。。。谢谢了

Private Sub Command1_Click()'注册表项取值
Dim LinkName As String, w
Set w = CreateObject("Wscript.Shell")
LinkName = w.RegRead("HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Folder\Hidden\SHOWALL\CheckedValue")
MsgBox LinkName
End Sub

Private Sub Command2_Click()'删除注册表项
Dim w
Set w = CreateObject("wscript.shell")
w.regdelete "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Folder\Hidden\SHOWALL\CheckedValue"
Set w = Nothing
End Sub

首先用RegOpenKey取得SubKey的Hkey，打开注册表

VB声明 Declare Function RegOpenKey Lib "advapi32.dll" Alias "RegOpenKeyA"
(ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long
参数类型及说明:
hKey:Key Handle
lpSubKey:SubKey名称或路径
phkResult:若RegOpenKey执行成功，则这一参数返回Subkey的hKey.