Dim mos As New System.Management.ManagementObjectSearcher("SELECT *" & _
          "FROM Win32_Product")
        Dim tn As TreeNode
        For Each o As Management.ManagementObject In mos.Get
            tn = New TreeNode("Name: " + o("Caption").ToString)
            For Each p As System.Management.PropertyData In o.Properties
                tn.Nodes.Add(New TreeNode(p.Name + ": " + IIf(o(p.Name) Is _
                  Nothing, " -- no available -- ", o(p.Name)).ToString))
            Next
            Me.TreeView1.Nodes.Add(tn)
        Next