<DllImport("msi.dll", SetLastError:=True)> _
    Private Shared Function MsiEnumProducts(iProductIndex As Integer, _
    lpProductBuf As System.Text.StringBuilder) As Integer
    End Function
 
    <DllImport("msi.dll", CharSet:=CharSet.Unicode)> _
    Private Shared Function MsiGetProductInfo(product As String, [property] As _
    String, <Out()> valueBuf As System.Text.StringBuilder, ByRef len As _
    Int32) As Int32
    End Function
 
    Public Enum MSI_ERROR As Integer
        ERROR_SUCCESS = 0
        ERROR_MORE_DATA = 234
        ERROR_NO_MORE_ITEMS = 259
        ERROR_INVALID_PARAMETER = 87
        ERROR_BAD_CONFIGURATION = 1610
    End Enum
 
    Public Enum ProductInfos
        ' Hier die Eigenschaftennamen
    End Enum
 
    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) _
      Handles Button1.Click
        Dim productGuid As New System.Text.StringBuilder(39)
        Dim msiResult As MSI_ERROR = MSI_ERROR.ERROR_SUCCESS
        Dim index As Integer = 0
 
        While msiResult = MSI_ERROR.ERROR_SUCCESS
            msiResult = DirectCast(MsiEnumProducts(index, productGuid), _
              MSI_ERROR)
 
            If msiResult = MSI_ERROR.ERROR_SUCCESS Then
                For Each enumName In [Enum].GetNames(GetType(ProductInfos))
                    Dim productInfo As New System.Text.StringBuilder(512)
                    MsiGetProductInfo(productGuid.ToString, enumName, _
                      productInfo, 512)
 
                    Debug.WriteLine(enumName & ": " & productInfo.ToString)
                Next
            End If
 
            index += 1
        End While
    End Sub