Android Question [Solved] Open app loading message

ProgressDialogShow("Loading..")
Dim count As Long
For i = 1 To 1000
  count = count + 1
Next

If count == 1000 Then
  Lista 'Call the Sub Listview
End If

ProgressDialogHide

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