[Gambas-user] How to exit loop and close the form

[Phạm Quang Dương]

Hi,

I want create a dialog form which showes the current progress and let user
stop the operation and close this dialog by clicking a Cancel button
On form1 I have 2 progress bars and 1 button:

Private shouldStop as Boolean

Private Sub Form_Open()
shouldStop = False
Me.Show()
doIt() 'Main loop of the operation
End

Private Sub Button1_Click()
shouldStop = True
Me.Close()
End

Private Sub doIt()
Dim i As Interger, j As Interger
i = 1
Repeat
j = 1
Repeat
Wait 'Let user click Cancel button
' My job here
ProgressBar2.Value = j / 100
j += 1
Until shouldStop Or j = 100
ProgressBar1.Value = i / 100
i += 1
ProgressBar2.Reset()
Until shouldStop Or i = 100
Me.Close()
End

On FMain I call:

form1.ShowDialog()

In real-time when I click Cancel button first time, the operation (progress
bar) stoppes but the form does not close until I click Cancel button the
second time.

I think that my code is bad but I can not find the better solution. Please
help! Thank you.