Comment éviter qu'un programme subisse une sorte de plantage losqu'il travaille beaucoup

Dim BoolStop As Boolean 
'
'
Private Sub Form_Load() 
    BoolStop = False 

    'mise en page pour le test
    Command1.Caption = "Démarrer la boucle" 
    Command2.Caption = "Interrompre la boucle" 
    Command1.Width = 2550 
    Command2.Width = 2550 
End Sub 
'
'
Private Sub Command1_Click() 
    Dim i As Long 
    For i = 1 To 5000000 
        If BoolStop Then Exit For 
        DoEvents 
    Next i 
    MsgBox "sortie ou fin : " & i & " passages en boucle", 32 
End Sub 
'
'
Private Sub Command2_Click() 
    BoolStop = True 
End Sub 

 

Coloration syntaxique automatique [AFCK]
       

PCPT