نمایش آدرس کلیدهای رجیستری در AutoComplete از TextBox

[ROSTAM2]

با سلام.
من برای اضافه کردن آدرس کلیدهای رجیستری در AutoComplete از TextBox و در رویداد KeyPress این دستور رو نوشتم:

AutoCompleteSource RegistryKey.jpg

Private Sub TextBox1_KeyPress(sender As Object, e As KeyPressEventArgs) Handles TextBox1.KeyPress

        Dim kEYsTR As String = ""

        Dim Expr$ = ""

        Try

            Select Case e.KeyChar

                Case ""

                    kEYsTR = Me.TextBox1.Text

                    Me.TextBox1.Enabled = False

                    With Key.OpenSubKey(kEYsTR, RegistryKeyPermissionCheck.ReadSubTree, Security.AccessControl.RegistryRights.FullControl)

                        For Each Key As String In .GetSubKeyNames

                            Expr = String.Format("{0}\{1}", kEYsTR, Key)

                            If Me.TextBox1.AutoCompleteCustomSource.Contains(Expr  ) = True Then Exit For

                            Me.TextBox1.AutoCompleteCustomSource.Add(Expr)

NextFor:

                        Next

                    End With

                    Me.TextBox1.Enabled = True

                    Me.TextBox1.Focus()

                    Me.TextBox1.Text = Me.TextBox1.Text.Insert(Me.TextBox1.TextLength, "")

                    Me.TextBox1.SelectionStart = Me.TextBox1.TextLength

            End Select

        Catch ex As Exception

            MsgBox(ex.Message)

        End Try

    End Sub

آیا راه حل بهتر و ساده تری هم هست برای لیست شدن کلید های رجیستری در AutoComplete?!