可以利用Timer时钟控件实现，这样做的好处是无需等待，释放CPU时间去做别的事
创新互联建站网站建设公司，提供成都网站建设、成都网站制作，网页设计，建网站，PHP网站建设等专业做网站服务;可快速的进行网站开发网页制作和功能扩展；专业做搜索引擎喜爱的网站，是专业的做网站团队，希望更多企业前来合作!
使用OpenProcess打开进程，然后用ToolhelpAPI的CreateToolhelp32Snapshot函数创建线程快照，然后用Thread32First和用Thread32Next枚举该进程的线程，对于枚举出来的该进程的每个线程结构中获取线程ID,用OpenThread打开线程，用SuspendThread挂起该线程。当该进程的所有线程被挂起，该进程就被挂起了，也就被暂停了。反之，想恢复该进程，只需用函数ResumeThread恢复该进程的所有线程即可。 以上的做法是因为win32子系统没有导出SuspendProcess函数，只能绕个弯实现，可在Native API，却有该函数，函数名为ZwSuspendProcess(也可能是SuspendProcess，我用手机写这个的，没电脑，没法查，反正有一个是对的，你可以用VS里的工具DEPEND查查看函数名)，在ntdll.dll被导出，该函数可以在vb中使用，不过得自己写声明，他的声明和SuspendThread几乎是一样的，就是句柄是进程句柄而不是线程句柄而已，与之对于的是ZwResumeProcess(也可能是ResumeProcess)。
你这种暂停，只能用一种方式（timer控件）代替
加一个timer控件和一个按钮
Timer1.Interval = 1000
Timer1.Enabled = True
timer也是一个循环了
然后用按钮控制（Timer1.Enabled）暂停或继续
在程序代码最上边，加上Private Declare Sub Sleep Lib "kernel32" Alias "Sleep" (ByVal dwMilliseconds As Long)
在想暂停的地方，运行Sleep 1000 '1000代表1秒
在暂停按钮的Click事件中设置：Timer1.Enable=False
在继续按钮的Click事件中设置：Timer1.Enable=True
详细查看了你的问题，完全不需要使用线程sleep的方法。
在这边，我要给你引入一个概念。就是Form窗体的两个方法。
Form.Show()和Form.ShowDialog()
第一个Show方法运行后，你的主程序还是会进行，你的代码还是会继续进行下去。此时，窗体还是弹出的。
第二个ShowDialog方法运行后，此时，弹出的一个窗体，你不将其关闭，那么，主程序就会一直等待这个窗体关闭后，才执行后面的代码。
所以，你只需要使用showdialog这个方法，即可达到你想要的结果。
那么，如何才能让弹出的窗体不改变呢？很简单
你可以找到窗体的formcloseing事件，在这个事件中，有一个参数：e
这个e有一个属性，就是e.handle，表示是否处理过这个事件了。
这个时候，如果你不想让窗体关闭，你可以写：
e.handle=true，那么表示已经处理过窗体关闭的事件了。
注：有些情况，可能是：e.cancel=true