How to implement <TAB> in PropertyGrid in VB

Public Class MyPropertyGrid
    Inherits RadPropertyGrid

    Protected Overrides Function ProcessDialogKey(ByVal keyData As Keys) As Boolean
        If keyData = Keys.Tab Then

            If Me.SelectedGridItem IsNot Nothing Then
                Dim traverser As PropertyGridTraverser = New PropertyGridTraverser(Me.PropertyGridElement.PropertyTableElement)

                While traverser.MoveNext() AndAlso Not traverser.Current.Equals(Me.SelectedGridItem)
                End While

                traverser.MoveNext()
                Me.SelectedGridItem = traverser.Current
                Me.BeginEdit()
                Return True
            Else
                Return MyBase.ProcessDialogKey(keyData)
            End If
        Else
            Return MyBase.ProcessDialogKey(keyData)
        End If
    End Function

    Public Overrides Property ThemeClassName As String
        Get
            Return GetType(RadPropertyGrid).FullName
        End Get
        Set(value As String)
            MyBase.ThemeClassName = value
        End Set
    End Property
End Class