[RESOLVED] Help in Listbox

[kent5244]

Hi all,

I wanted to construct a stop button to stop or interrupt the program from executing.

Code:

Option Explicit

Private Sub Write_Text(ByVal A, ByVal B, ByVal C)

List1.AddItem A & " | " & B & " | " & C & vbCrLf

End Sub

Private Sub Run_Button_Click()

Write_Text "A1", 1, 1
Write_Text "A2", 2, 2
Write_Text "A3", 3, 3

End Sub

In the Run_Button_Click, there r a lot of write_text

e.g. Write_Text "A1", 1, 1
Write_Text "A2", 2, 2
Write_Text "A3", 3, 3
:
:
Write_Text "A100", 100, 100

So when I click the stop button when the program executing Write_Text "A10", 10, 10 . It will stop and not execute Write_Text "A11", 11, 11

'*********************************************************

Need advise from someone.

Regards,
Kent