vb的简单问题

我编了一个游戏

但是不知道怎么样才能通过一个button控件使它暂停

然后再按一下又继续

设置一个全局变量，在游戏必须执行的位置设置一个检测过程，检查的数值，如果是设置的暂停值，则执行空循环，等待继续按键。例子如下：

Dim PauseMode As Boolean '最初设置

Dim I As Long

Private Sub Form_Load()

'

'

'

Me.Show

PauseMode = False '初始设置

'

'

'

For I = 1 To ***********

DoEvents

Do While PauseMode = True

DoEvents

Loop

Label1 = I

Next

'

'

'

End Sub

Private Sub Command1_Click()

PauseMode = Not PauseMode

End Sub

'

'

'游戏必须一直执行的代码段

'

'

'Do While PauseMode = True

' DoEvents

'Loop

'

'

'

• ·有关软件破解的问题(高手请进)
• ·杨家将有几个男丁
• ·Lately I Keep Scissors什
• ·想知道西双版纳地名的问题？
• ·系统不能正常安装
• ·软件安装的问题
• ·国内大学不好能审请美国名校么
• ·“你是干哪行的？”用英语怎么说
• ·舒马赫退休了，法拉力谁是第一号车手，谁是第二车
• ·节假日大型商场向单位发放购物券,是否违反不正当