好，我得到了一些有效的方法，但我不喜欢该解决方案。

如果您可以帮助我进行清理或有更好的方法，请建议我并不是真的想这样做，因为它似乎不是线程安全的。

您没有想到可以在项目事件中使用的事件会产生预期的结果。

昏暗选择器作为System.Threading.Thread
     私人子ThreadSelect（）
      
         昏暗的秒表作为新的诊断工具。
         stopWatch.Start（）
         在stopWatch.ElapsedMilliseconds <100
             '继续计数
         结束时间
         SBO_Application.SendKeys（" {TAB}"）
         Selector.Abort（）
       
     结束子


     私有子SBO_Application_ItemEvent（ByVal FormUID为字符串，ByRef pVal为SAPbouiCOM.ItemEvent，ByRef BubbleEvent为布尔值）处理SBO_Application.ItemEvent




         昏暗的EventEnum作为SAPbouiCOM.BoEventTypes
         Dim oForm作为SAPbouiCOM.Form
         Dim oItem作为SAPbouiCOM.Item
         昏暗的oEditText作为SAPbouiCOM.EditText
         Dim oLink as SAPbouiCOM.LinkedButton
         昏暗的FormType作为字符串
         昏暗的ItemUID作为字符串






         如果FormUID =" myForm"，则






             如果pVal.BeforeAction = False，则
                 如果gb_reselectJTN = True，则
                    
                         oForm = SBO_Application.Forms.GetForm（pVal.FormTypeEx，pVal.FormTypeCount）

                         gb_reselectJTN =假
                     
                     选择器=新的System.Threading.Thread（AddressOf ThreadSelect）
                     Selector.Start（）
                  
                 万一
             万一
         万一
 结束Sub