Sub Process_Globals
'These global variables will be declared once when the application starts.
'These variables can be accessed from all modules.
Dim Timer1 As Timer
End Sub
Sub Globals
Dim ProgressBar1 As ProgressBar
Dim numProgress As Int
End Sub
Sub Activity_Create(FirstTime As Boolean)
ProgressBar1.Initialize("")
Activity.AddView(ProgressBar1,0,0,80%x,50dip)
Timer1.Initialize("Timer1", 200) ' 1000 = 1 second
Timer1.Enabled = True
End Sub
Sub Timer1_Tick
'handle the tick events
numProgress = numProgress + 5
ProgressBar1.Progress = numProgress
If numProgress > 70%x Then Timer1.Enabled = False
End Sub