Vb.net progressbar with timer1 in visual studio win app

How do i report the progress done when its not computable ie one sql statement running? doesnt this method require the same? Ive read the microsoft help on this but not seeing how i apply it in my code.

I did Mike's solution and its almost there but not quite, when the form opens the progress indicator now moves in the marquee fashion as described but when I click the sql process to run with a button the progress bar stops moving and when the sql process is done the progress indicator then starts moving again. in essence its the reverse now of how i imagined.

The SQL process needs to run as a background worker job, the progressbar should be foreground.
When sql complete,s background complete event  can close the progressbar.

See the first answer in your question by Ryan Chong to move that SQL process to a background thread with the BackgroundWorker() control.

aha ok its a combination of the two ok will give that a go

Ok ive created the demo here:
https://msdn.microsoft.com/en-us/library/system.componentmodel.backgroundworker.aspx

and from that ive got to the code in my form1 class with no errors and attached the async to the panel that has the onclick event that makes the call to the usp. the bit I dont know despite looking at the fibinachi example on the microsoft site is:do i need do anything more.

the code is here (its not all of it only the relevant bits so far the sub that does the work is CreateAllStrs():

Imports System.ComponentModel

Public Class Form1

    Dim AllListBox As New List(Of ListBox)()
    Private dtWords As DataTable

    'Private backgroundWorker1 As BackgroundWorker = New BackgroundWorker
    Public Sub New()
        InitializeComponent()
        BackgroundWorker1.WorkerReportsProgress = True
        BackgroundWorker1.WorkerSupportsCancellation = True
    End Sub
    Private Sub startAsyncButton_Click(ByVal sender As System.Object,
    ByVal e As System.EventArgs) Handles Panel1.Click
        If backgroundWorker1.IsBusy <> True Then
            ' Start the asynchronous operation.
            backgroundWorker1.RunWorkerAsync()
        End If
    End Sub

    Private Sub cancelAsyncButton_Click(ByVal sender As System.Object,
    ByVal e As System.EventArgs) Handles StrShortCancel.Click
        If backgroundWorker1.WorkerSupportsCancellation = True Then
            ' Cancel the asynchronous operation.
            backgroundWorker1.CancelAsync()
        End If
    End Sub

    'This Event handler() Is where the time-consuming work Is done.
    Private Sub backgroundWorker1_DoWork(ByVal sender As System.Object,
    ByVal e As DoWorkEventArgs) Handles backgroundWorker1.DoWork
        Dim worker As BackgroundWorker = CType(sender, BackgroundWorker)
        Dim i As Integer

        For i = 1 To 10
            If (worker.CancellationPending = True) Then
                e.Cancel = True
                Exit For
            Else
                ' Perform a time consuming operation and report progress.
                System.Threading.Thread.Sleep(500)
                worker.ReportProgress(i * 10)
            End If
        Next
    End Sub

    'This Event handler() updates the progress.
    Private Sub backgroundWorker1_ProgressChanged(ByVal sender As System.Object,
    ByVal e As ProgressChangedEventArgs) Handles backgroundWorker1.ProgressChanged
        ResultLabel.Text = (e.ProgressPercentage.ToString() + "%")
        Me.ProgressBar2.Value = e.ProgressPercentage
    End Sub

    ' This event handler deals with the results of the background operation.
    Private Sub backgroundWorker1_RunWorkerCompleted(ByVal sender As System.Object,
    ByVal e As RunWorkerCompletedEventArgs) Handles backgroundWorker1.RunWorkerCompleted
        If e.Cancelled = True Then
            ResultLabel.Text = "Canceled!"
        ElseIf e.Error IsNot Nothing Then
            ResultLabel.Text = "Error: " & e.Error.Message
        Else
            ResultLabel.Text = "Done!"
        End If
    End Sub

    Public Sub CreateAllStrs()


        'ProgressBar2.Visible = True
        'ProgressBar2.Minimum = 0
        '    ProgressBar2.Maximum = 10000
        '    ProgressBar2.Value = 0
        '    ProgressBar2.Step = 1
        'LBLBulkWait.Visible = True
        Dim StrProcName As String
        StrProcName = "usp_CreateStrStringsPlusTidyup"

        Dim connectionString As String = ConfigurationManager.ConnectionStrings("Dictionary").ConnectionString

        Using conn As New SqlConnection(connectionString)
            Using cmd As New SqlCommand(StrProcName, conn)
                cmd.CommandTimeout = 0
                cmd.CommandType = CommandType.StoredProcedure
                conn.Open()


                cmd.ExecuteScalar()
            End Using
        End Using
        'ProgressBar2.Visible = False
        'LBLBulkWait.Visible = False
    End Sub

Select allOpen in new window

it runs but the createallstrs doesnt seem bound into the background worker so far.

I think ive cracked it i put the call to createstrs in the dowork now the progress bar progresses.. why is there a .sleep?

    Private Sub backgroundWorker1_DoWork(ByVal sender As System.Object,
    ByVal e As DoWorkEventArgs) Handles backgroundWorker1.DoWork
        Dim worker As BackgroundWorker = CType(sender, BackgroundWorker)
        Dim i As Integer

        For i = 1 To 10
            If (worker.CancellationPending = True) Then
                e.Cancel = True
                Exit For
            Else
                ' Perform a time consuming operation and report progress.

                Call CreateAllStrs()

                System.Threading.Thread.Sleep(500)
                worker.ReportProgress(i * 10)
            End If
        Next
    End Sub

Select allOpen in new window

thank you