Private Sub Form4_Load(ByVal sender As Object, ByVal e As System.EventArgs) _
   Handles Me.Load
 
        Dim wmi As New ManagementObjectSearcher("\root\cimv2", "SELECT * FROM" & _
          "win32_Product")
 
        For Each obj As ManagementObject In wmi.Get
            MsgBox(obj("Name"))
        Next
 
  End Sub