The progresdialog is not showing with the code below.
How to solve it?
How to solve it?
B4X:
Private Sub B4XPage_Created (Root1 As B4XView)
Root = Root1
Root.LoadLayout("MainPage")
B4XPages.SetTitle(Me, "Safety MOV VR")
ProgressDialogShow("Aguarde...")
Svr.Initialize(Me,"Svr")
Svr.Start(51051)
Dim Unzip As Archiver
File.Copy(File.DirAssets,"vr.zip",Svr.TempPath,"vr.zip")
Unzip.Unzip(Svr.TempPath,"vr.zip",Svr.TempPath,"")
ProgressDialogHide
End Sub