Sub 刷新网页() //这是一套刷新的方法，点击两个按钮
dm.KeyPress 13
dm.MoveTo 10,98
dm.Leftdown
dm.Leftup
dm.MoveTo 5,98
dm.Leftdown
dm.Leftup
Delay 390
End Sub
Sub 购买() //这是一套购买的方法，点击两个按钮
dm_ret = dm.FindStr(30, 165, 100, 177, "音", "0ffff7-000000", 1.0, intX, intY)
If intX > 0 Then
PauseThread IDA
dm.MoveTo 45, 17 //goumai
dm.LeftDown
dm.LeftUp
dm.MoveTo 33,43
dm.LeftDown
dm.LeftUp
dm.KeyPress 13
End Sub
以上是两个子程序，一个是刷新，一个是购买。
现在我怎么才能实现双线程，
线程1刷新，
线程2找到字后购买。
在线程2中，找到字样就暂停线程1，购买完毕后再继续线程1，
困扰几天了，求大神！！