Как получить список установленных программ?

Imports System.Text
Imports System.Runtime.InteropServices
 
NotInheritable Class Program
    Private Sub New()
    End Sub
    <DllImport("msi.dll", SetLastError := True)> _
    Private Shared Function MsiEnumProducts(iProductIndex As Integer, lpProductBuf As StringBuilder) As Integer
    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
 
    <STAThread> _
    Private Shared Sub Main()
        Dim sb As New StringBuilder(39)
        Dim [error] As MSI_ERROR = MSI_ERROR.ERROR_SUCCESS
        Dim index As Integer = 0
        While [error] = MSI_ERROR.ERROR_SUCCESS
            [error] = CType(MsiEnumProducts(index, sb), MSI_ERROR)
            Dim productID As String = sb.ToString()
            If [error] = MSI_ERROR.ERROR_SUCCESS Then
                Console.WriteLine("ProductID=" & productID)
            End If
            index += 1
        End While
    End Sub
End Class