Dim hWnd As IntPtr = FindWindow(Nothing, “标题”)
创新互联公司主营惠州网站建设的网络公司,主营网站建设方案,重庆App定制开发,惠州h5成都微信小程序搭建,惠州网站营销推广欢迎惠州等地区企业咨询
If Not hWnd.Equals(IntPtr.Zero) Then
Dim isIcon As Boolean = IsIconic(hWnd)
If Not isIcon Then
SetForegroundWindow(hWnd)
Else
OpenIcon(hWnd)
End If
end if
前几天写过，直接拿去用好了
你是不是用的Visual Studio来开发的？如果是，这样操作：打开 项目 菜单 中的 XXX属性，在弹出的属性页选择最上面那个 应用程序 标签，里面有个启动窗体，你选择一下就可以了。
如果你不是用的visual Studio来开发的，那么可以考虑把另外一个窗口的visible属性先设置为false或者把你要显示的窗口改为对话框的形式，大小比另外一个窗口大一点或者一样（即 模态窗口，必须关闭才能继续操作），这样都可以实现你要的效果。
看起来是鼠标按住不放情况下导致焦点还保持在新建线程的窗口，然后又循环导致焦点切来切去引起闪烁。
试下在循环中的执行代码前加上 mouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 0) '释放鼠标左键
先得到IE的句柄 然后使用下面的API
Public Declare Function BringWindowToTop Lib "user32" Alias "BringWindowToTop" (ByVal hwnd As Long) As Long
shell加个参数：
Shell("D:\Program Files\Microsoft Office\Office14\WINWORD.EXE", AppWinStyle.NormalFocus)