keyup事件
If e.KeyCode = keys.tab Then vars("tab") = TrueElse vars("tab") = FalseEnd If
enter事件
If vars("tab") = True Then If e.Sender.text > "" Then Sendkeys.Send("{tab}") End IfEnd If