Private vThread As New System.Threading.Thread(AddressOf Process_start)
    Private Delegate Sub SetprogressBarDelegate(ByVal value As Integer)

    Private Sub SetprogressBar(ByVal value As Integer)
        Me.ProgressBar1.Value = value
    End Sub

    Private Sub Process_start()
        For t As Integer = 0 To 100
            Me.ProgressBar1.Invoke(New SetprogressBarDelegate(AddressOf SetprogressBar), t)
            System.Threading.Thread.Sleep(250)
        Next
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        vThread.Start()
    End Sub