主题：求教：下拉窗口弹出时，如何将焦点还保留在DropBox编辑框中？

不明白为什么这样，改成右键吧：

If Forms("窗口2").Opened Then
    Dim t As Table = Tables("窗口2_Table1")
    Select Case e.KeyCode
        Case Keys.Up
            t.Position = t.Position - 1
            e.Cancel = True
        Case Keys.Down
            t.Position = t.Position + 1
            e.Cancel = True
        Case Keys.Right
            e.Cancel = True
            e.Sender.Value = t.Current("第一列")
            e.Sender.CloseDropdown
    End Select
End If