Enumerate Registry keys

Add command button and listbox on form:

Private Sub Command1_Click()
   Const HKEY_CURRENT_USER = &H80000001
   strComputer = "."
   Set objReg = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\default:StdRegProv")
   strKeyPath = "SOFTWARE"
   objReg.EnumKey HKEY_CURRENT_USER, strKeyPath, arrSubKeys
   For Each subkey In arrSubKeys
       List1.AddItem subkey
   Next
End Sub

That worked great! Related question, if you dont mind. Within this script, how do I set a certain criteria [example.., to list only the keys with the value "Installed" =1 in the right pane]

And does it work with Windows 9x systems as well..?

BTW, WMI itself have Installed software enumerator:

Private Sub Form_Load()
  EnumerateInstalledSoftware ListView1
End Sub

Private Sub Form_Resize()
   If WindowState = vbMinimized Then Exit Sub
   ListView1.Move 0, 0, ScaleWidth, ScaleHeight
End Sub

Private Sub EnumerateInstalledSoftware(lv As ListView)
   lv.ListItems.Clear
   lv.ColumnHeaders.Clear
   lv.View = lvwReport
   With lv.ColumnHeaders
      .Add , , "Caption"
      .Add , , "Description"
      .Add , , "Identifying Number"
      .Add , , "Install Date"
      .Add , , "Install Location"
      .Add , , "Install State"
      .Add , , "Name"
      .Add , , "Package Cache"
      .Add , , "SKU Number"
      .Add , , "Vendor"
      .Add , , "Version"
   End With
   strComputer = "."
   Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
   Set colSoftware = objWMIService.ExecQuery("Select * from Win32_Product")
   On Error Resume Next
   For Each objSoftware In colSoftware
       With lv.ListItems.Add(, , objSoftware.Caption)
            .SubItems(1) = objSoftware.Description
            .SubItems(2) = objSoftware.IdentifyingNumber
            .SubItems(3) = Str2Date(objSoftware.InstallDate)
            .SubItems(4) = objSoftware.InstallLocation
            .SubItems(5) = GetInstallState(objSoftware.InstallState)
            .SubItems(6) = objSoftware.Name
            .SubItems(7) = objSoftware.PackageCache
            .SubItems(8) = objSoftware.SKUNumber
            .SubItems(9) = objSoftware.Vendor
            .SubItems(10) = objSoftware.Version
      End With
   Next
End Sub

Private Function Str2Date(ByVal sDate As String) As Date
   Str2Date = DateSerial(Left(sDate, 4), Mid(sDate, 5, 2), Mid(sDate, 7, 2))
End Function

Private Function GetInstallState(ByVal state As Integer) As String
    Select Case state
           Case 6: GetInstallState = "Bad Configuration"
           Case -2: GetInstallState = "Invalid Argument"
           Case -1: GetInstallState = "Unknown Package"
           Case 1: GetInstallState = "Advertised"
           Case 2: GetInstallState = "Absent"
           Case 5: GetInstallState = "Installed"
   End Select
End Function

superb! :-)