我在这里问了类似的问题：How to delay the LostFocus Event in VB6。建议使用DoEvents，它对我不起作用，因为它正在重新加载我的所有表单。
我需要做的是强制将光标移到文本框中以读取条形码。但是，我需要允许用户单击表单上3个按钮中的1个。因此，需要发生的事情是，可能会悬停在这些按钮之一上，释放光标足够长的时间以单击按钮。
可以做到吗？
VB6：如何将光标强制到文本框中，但释放按钮
•
问答
wodedark 回答：VB6：如何将光标强制到文本框中，但释放按钮
这里是完成您所需要的方式。在按钮Click事件中，执行所需的工作，然后SetFocus回到文本框。您不会像上一篇文章那样对LostFocus事件做出响应。
Option Explicit
Private Sub Text1_LostFocus()
'do nothing
End Sub
Private Sub Command1_Click()
'do your work
Text1.SetFocus
End Sub
Private Sub Command2_Click()
'do your work
Text1.SetFocus
End Sub
Private Sub Command3_Click()
'do your work
Text1.SetFocus
End Sub
请记住，只有完成工作，文本框才会获得焦点。