Follow along with the video below to see how to install our site as a web app on your home screen.
Anmerkung: This feature currently requires accessing the site using the built-in Safari browser.
Public Class Form1
Dim a As Int16 = 1000
Dim b, c As Integer
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Label1.Visible = False
Label1.Text = "hallo"
c = c + 1
Label2.Text = Str$(c)
ProgressBar1.Value = c
If c = 100 Then
Label1.Visible = True
c = 0
End If
End Sub
End Class