شناسایی مرورگر دیفالت ویندوز

[saeidmobashery]

درود بر اساتید و دوستان گرانقدرم
بنده از کد زیر مرورگرهای نصب شده در ویندوز را شناسایی و در کمبوباکسی چیدمان می‌کنم
فقط نمی‌دانم چطور می‌توان مرورگر دیفالت را شناسایی کنم ؟ تا به عنوان اولین آیتم در کموباکس قرار دهم

    Private Sub ExportBrowsers()

        Browsers_ComboBox.Items.Clear()

        Dim Path As String

        Dim File() As String

        Dim FileName As String

        With My.Computer.Registry.LocalMachine.OpenSubKey("soft  ware\clients\startmenuinternet")

            Dim Names() As String = .GetSubKeyNames

            For Each Item As String In Names

                With .OpenSubKey(Item)

                    With .OpenSubKey("shell\open\command")

                        Path = .GetValue("", "")

                    End With

                End With

                File = Path.Split("\")

                FileName = File(File.Count - 1).Replace("""", "")

                Browsers_ComboBox.Items.Add(FileName)

            Next

        End With

        Browsers_ComboBox.SelectedIndex = 0

    End Sub