程序不能结束运行

[truesmx]

Option Explicit
Private bln1 As Boolean

Private Sub Command1_Click() '10000*10000次循环
Dim i As Integer
Dim j As Integer

For i = 1 To 10000
For j = 1 To 10000
DoEvents
Me.Caption = CStr(j)
If bln1 Then
Me.Caption = Me.Caption & "Pause"
Exit Sub
End If
Next
Next
End Sub

Private Sub Command2_Click() '暂停
bln1 = True
End Sub

Private Sub Form_Unload(Cancel As Integer)
bln1 = True
End Sub

'当执行Command1_Click()时,
'这时没有按Command2_Click按钮
'当窗体发生Form_Unload事件时,
'也就是我点了关闭按钮
'怎么还处于运行状态.如何解决,谢谢了