Sub Activity_Create(FirstTime As Boolean)
.....
ProgressBar1.Progress = 0
Timer1.Initialize("Timer1", 1000)
Timer1.Enabled = True
End Sub
Sub timer1_Tick
ProgressBar1.Progress = ProgressBar1.Progress + 1
If ProgressBar1.Progress = 100 Then
Timer1.Enabled = False
End If
End Su