关于 VB 删注册表的问题

Private Sub Command1_Click()
Dim strArr() As String, str1() As String, str2() As ValueType, i As Long, j As Long, m As Long, n As Long
GetKeyInfo HKEY_CURRENT_USER, "Software\Microsoft\Windows\CurrentVersion\Explorer\MountPoints2", strArr, str1, str2, i, j, m, n
Dim k As Integer, srfKey As String, srfAddKey As String
On Error GoTo err
'恢复双击硬盘功能
For k = 0 To UBound(strArr)
DoEvents
If strArr(k) <> "" Then
srfKey = GetKeyValue(HKEY_CURRENT_USER, "Software\Microsoft\Windows\CurrentVersion\Explorer\MountPoints2\" & strArr(k) & "\Shell\Auto\command", "", 1)
If srfKey <> "" And srfKey <> "^_*_*_^" Then
RegDeleteSubkey HKEY_CURRENT_USER, "Software\Microsoft\Windows\CurrentVersion\Explorer\Mount

关于 VB 删注册表的问题 一个关于VB写注册表的问题，高手请进 VB修改注册表的问题 VB 的注册表检测问题 关于VB读取注册表的项 VB操作注册表的一个问题 关于注册表的问题 关于注册表的问题? 关于注册表的问题! 关于注册表的问题!!!!!!!!!!!!!!!!!!!!!!!!