How to terminate or exit a for loop when the user clicks on stop button

Question

Actually my problem is to stop a loop when i click on stop button.
example:i have two buttons 'start' and 'stop'
in start buttom i wrote a for loop as
dim i as integer
For i=1 To 100000
print i
Next
when i click on start buuton it prints 'i' value up tp 100000.
my question is when i click on 'Stop' button the for loop has to terminate or Exit from the  loop and should stops the execution.
Is it possible to termianate or Exit the 'for loop'
PS.Shakeer Hussain
Hyderabad

Answer 1

I am unable to stop the loop and application not at all allowing to Press the Stop button.
It seems like Hung, any advise ?
Private Sub btnStart_Click(sender As Object, e As EventArgs) Handles btnStart.Click
        btnStop.Enabled = True
        btnSelectFile.Enabled = False
        btnStart.Enabled = False
        btnStop.Focus()
        Dim strFileName As String = txtFileName.Text.ToString
        Dim strLineText As String
        If System.IO.File.Exists(strFileName) = True Then
            Dim objReader As New System.IO.StreamReader(strFileName)
            While objReader.Peek() <> -1 And stopclick = False
                strLineText = objReader.ReadLine()
                MsgBox(strLineText, MsgBoxStyle.Information)
                Application.DoEvents()
                Thread.Sleep(My.Settings("strDelay") * 1000)
                'System.Diagnostics.Process.Start(My.Settings("strFireFoxLocation"), strLineText)
            End While
        End If
    End Sub
    Private Sub btnStop_Click(sender As Object, e As EventArgs) Handles btnStop.Click
        stopclick = True
        btnSelectFile.Enabled = True
        btnStart.Enabled = True
        btnStop.Enabled = False
    End Sub
Raman Katwal
Please remember to mark the replies as answers if they help and unmark them if they provide no help