Sub Class_Globals
Private timer1 As Timer
Private api As webapi
End Sub
'Initializes the object. You can add parameters to this method if needed.
Public Sub Initialize
timer1.Initialize("timer1", 1000)
timer1.Enabled = True
api.Initialize
StartMessageLoop
End Sub
Sub Timer1_Tick
Main.loading.Progress = 1
wait for (api.postFile(Main.idevento)) Complete(result As Boolean)
Main.loading.Progress = 0
End Sub