Dim key = Registry.LocalMachine.OpenSubKey("SOFTWARE\Adobe")
                    If key IsNot Nothing Then
                        Dim arrStr() As String = key.GetSubKeyNames()
                    End If