Hello Mose, I think you need to show some progressbar on your form load using multithreading. Check the link
here.
Anyway we have the quick solution for your issue. Check the below code.
Private Sub button1_Click(ByVal sender As Object, ByVal e As EventArgs)
ShowProgress()
End Sub
Private Sub ShowProgress()
For i As Integer = 0 To 2000
label1.Text = i.ToString()
Application.DoEvents()
Next
End Sub