VB.Net遍历已安装的程序卸载信息

Private Shared Function ProgramExists(ByVal pgName As String) As Boolean
        Dim temp As String = Nothing
        Dim tempType As String = Nothing
        Dim displayName As Object = Nothing
        Dim uninstallString As Object = Nothing
        Dim releaseType As Object = Nothing
        Dim currKey As RegistryKey = Nothing
        Dim softNum As Integer = 0
        Dim pregkey = Registry.LocalMachine.OpenSubKey("Software\Microsoft\Windows\CurrentVersion\Uninstall")
        Dim result = False
        Try
            For Each item As String In pregkey.GetSubKeyNames()
                currKey = pregkey.OpenSubKey(item)
                displayName = currKey.GetValue("DisplayName")
                uninstallString = currKey.GetValue("UninstallString")
                releaseType = currKey.GetValue("ReleaseType")
                Dim isSecurityUpdate = False
                If releaseType IsNot Nothing Then
                    tempType = releaseType.ToString()
                    If tempType = "Security Update" OrElse tempType = "Update" Then
                        isSecurityUpdate = True
                    End If
                End If
                If (Not isSecurityUpdate) AndAlso _
                    (displayName IsNot Nothing) AndAlso _
                    (uninstallString IsNot Nothing) AndAlso
                    displayName = pgName Then
                    result = True
                    Exit For
                End If
            Next item
        Catch
        Finally
            pregkey.Close()
        End Try
        Return result
    End Function