Dim WMI_Return2 As ManagementObjectCollection
        Dim WMI_Search2 As ManagementObjectSearcher
        Dim WMI2 As ManagementObject
        WMI_Search2 = New ManagementObjectSearcher("SELECT * FROM" & _
          "Win32_Product")
        WMI_Return2 = WMI_Search2.Get
        For Each WMI2 In WMI_Return2
            Me.TexBox_SW.Text = WMI2("caption").ToString()
        Next