Sub Process_Globals
Dim Tim As Timer
Dim Tim2 As Timer
Dim Cort As Int = 0
End Sub
Sub Activity_Create(FirstTime As Boolean)
If Cort <> 1 Then
Tim.Initialize("Tim", 1000)
Tim.Enabled = True
End If
End Sub
Sub Tim_Tick
ProgressDialogShow2("Cargando...", False)
Tim.Enabled = False
Cort = 1
Tim2.Initialize("Tim2", 3000)
Tim2.Enabled = True
End Sub
Sub Tim2_Tick
Lista_Opciones
ProgressDialogHide
Tim2.Enabled = False
End Sub
Sub Lista_Opciones
Code.... Listview
End Sub