最正统的方法是把TextBox1的TabIndex属性设为0（其他控件的TabIndex不能是0）
10年积累的成都网站建设、网站设计经验，可以快速应对客户对网站的新想法和需求。提供各种问题对应的解决方案。让选择我们的客户得到更好、更有力的网络服务。我虽然不认识你，你也不认识我。但先网站设计后付款的网站建设流程，更有巫山免费网站建设让你可以放心的选择与我们合作。
要在Load事件里用TextBox1.Focus()也可以，但要先Me.Show()，否则不会起作用。因为控件得到焦点需要控件”可见可用“，在FormLoad阶段整个窗体是“不可见"的，需要强制使用Me.Show()。
获得焦点，鼠标点一下text1，或者按钮事件 text1.setfocus
失去焦点，只有当焦点移出才发生，如鼠标点到了其他地方
这个最好是建议你用后台发送数据的方法，你可以百度下SendMessage和PostMessage这两个函数
SetFocus 方法
将焦点移至指定的控件或窗体。
1.对象必须是 Form 对象、MDIForm 对象或者能够接收焦点的控件。调用 SetFocus 方法以后，任何的用户输入将指向指定的窗体或控件。
2.焦点只能移到可视的窗体或控件。因为在窗体的 Load 事件完成前窗体或窗体上的控件是不可视的，所以如果不是在 Form_Load 事件过程完成之前首先使用 Show 方法显示窗体的话，是不能使用 SetFocus 方法将焦点移至正在自己的 Load 事件中加载的窗体的。
3.也不能把焦点移到 Enabled 属性被设置为 False 的窗体或控件。如果已在设计时将 Enabled 属性设置为 False，必须在使用 SetFocus 方法使其接收焦点前将 Enabled 属性设置为 True。
首先你要确定入口程序
因为你把代码写在了FORM1的LOAD事件里，到最后他还是要回到FORM1来。
最简单的办法
newfrm2.ShowDialog
看起来是鼠标按住不放情况下导致焦点还保持在新建线程的窗口，然后又循环导致焦点切来切去引起闪烁。
试下在循环中的执行代码前加上 mouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 0) '释放鼠标左键