如何修改注册表指定路径下指定键的键值

[原来如此]

如何修改注册表指定路径下指定键的键值?比如当我按下按钮1的时候就修改注册表HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Shell Icons 路径下里面的键名称为 "29" 的数值数据为: "C:\1.ico" 要怎么写代码?看了好多网上的代码都不是很明白,所以回答请自己成功修改过的再发上来,不要直接复制网上的...

[原来如此]

谢谢,代码简单易懂,猴哥牛........

[chinaboyzyq]

Private Sub Command1_Click()
  Dim w As Object
  Set w = CreateObject("Wscript.Shell")
  w.regwrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Shell Icons\29", "C:\1.ico", "REG_SZ"
  
End Sub

[chinaboyzyq]

Private Sub Command1_Click()
  Dim w As Object
  Set w = CreateObject("Wscript.Shell")
  w.regwrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Shell Icons\29", "C:\1.ico", "REG_SZ" '//写注册表
  
End Sub

Private Sub Command2_Click()
  Dim w As Object
  Set w = CreateObject("Wscript.Shell")
  MsgBox w.RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Shell Icons\29") '//读注册表
End Sub