主题：遍历控件的时候,如何才能按设置的tab键的顺序遍历?

Dim dics As new SortedDictionary(Of Integer, object)
For Each c As object In e.form.controls
    dics.Add(c.tabindex, c)
Next
For Each key As Integer In dics.keys
    msgbox(dics(key).name)
Next

Dim dics As new SortedDictionary(Of Integer, object)
For Each c As object In e.form.controls
    dics.Add(c.tabindex, c)
Next
For Each key As Integer In dics.keys

    msgbox(dics(key).gettype.name)
    Select Case dics(key).Gettype.name
        Case "Button"

        Case "TextBox"

    end select
Next