您当前的位置: 我知道像我这种新手的问题很让各位蛋疼，但我真的没有办法了，MSDN找过了，也求过度娘和谷哥了，可是他们不理我，求哪位大侠帮兄弟一下吧！先行谢过！
目的：一个小游戏，游戏中怎么实现暂停和停止游戏？停止游戏不能用Me.Close这种方法，要让程序回到刚启动
时的状态。另外，我注册了F9，F10，F11三个全局热键，当按下F9时会CALL“开始游戏”这个子程序。
要求：当按下F10时，游戏暂停；当按下F11时，游戏停止，恢复到刚启动时的状态。
另外当在判断语句中，当条件不成立时停止程序的运行，并恢复到启动时的状态。
例如：
Public sub updatacell()
For i As Integer = 0 To 9
For o As Integer = 0 To 19
If active(i, o) = True Or activemove(i, o) = True Then
lbcell(i, o).BackColor = Color.Black
Else
'这里要停止程序的运行并恢复到初始状态，该怎么实现？
End If
Next
Next
End sub
------解决方案--------------------
是的，可以使用信号量，在线程中等待，然后发现信号量后退出线程。msdn有例子。
------解决方案--------------------
Private b as Boolean
Public sub updatacell()
b = False
For i As Integer = 0 To 9
For o As Integer = 0 To 19
If active(i, o) = True Or activemove(i, o) = True Then
lbcell(i, o).BackColor = Color.Black
Else
'当你需要继续的时候将b设定为True即可。
'实时通讯用的都是这种模式
Do
Threading.Thread.Sleep(100)
Loop Until b
End If
Next
Next
End sub