Private Sub Application_Start (Nav As NavigationController)
Dim tt As Archiver
DBFileDir=DBUtils.CopyDBFromAssets("TempData")
kvs.Initialize(File.DirDocuments, "TempData")
If kvs.Get("Ini")=0 Then
tt.Unzip(File.DirAssets,"288.zip",File.DirDocuments & "288/","")
kvs.Put("Ini",1)
Show_ProGress.ProgressDialogHide
Else
DBFileDir=File.DirDocuments
End If
End Sub