Follow along with the video below to see how to install our site as a web app on your home screen.
Note: This feature may not be available in some browsers.
Imports System.Threading
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim tCounter As New Thread(AddressOf RunCounter)
tCounter.Start()
End Sub
Private Sub RunCounter()
Dim Counter As Integer
Me.ProgressBar1.Maximum = 100000
Do
Me.Label1.Text = Counter & "/" & 100000
Me.ProgressBar1.Value = Counter
Counter += 1
Loop While Counter < 100000
End Sub