[VBA] Break loop when button is clicked

[chungyin383]

I am building a simple lucky draw Excel.

I have a user form with 2 buttons: start and stop. When "start" is clicked, a number is drawn and displayed (this part is done) and this is continued until the user clicks "stop" (This is the part I don't know how to implement).

Any ideas on how to make it?

What I have right now:

Private Sub start_button_Click()

Do While True
        label1.Caption = Application.WorksheetFunction.RandBetween(1, 100)
        form1.Repaint
Loop


End Sub

 

[chungyin383]

OK I have found the answer:

DoEvenets

Simply add this to the loop to avoid the blocking of UI thread.

I am building a simple lucky draw Excel.

I have a user form with 2 buttons: start and stop. When "start" is clicked, a number is drawn and displayed (this part is done) and this is continued until the user clicks "stop" (This is the part I don't know how to implement).

Any ideas on how to make it?

What I have right now:

Private Sub start_button_Click()

Do While True
        label1.Caption = Application.WorksheetFunction.RandBetween(1, 100)
        form1.Repaint
Loop


End Sub

 

[My Aswer Is This]

I was looking at this but did not have an answer.

Show me what you mean.

Do you mean by adding DoEvenets to this script

Another script can run which would stop to other script.