If FirstTime = True Then
If File.Exists(File.DirDefaultExternal, "world.jpg") = False Then
File.Copy(File.DirAssets,"world.jpg", File.DirDefaultExternal,"world.jpg")
ST.Initialize(File.DirDefaultExternal, "world.jpg", False)
StartActivity(MyLangRegion)
Else If File.Exists(File.DirDefaultExternal, "world.jpg") = True Then
File.Copy(File.DirAssets,"world.jpg", File.DirRootExternal,"world2.jpg")
ST.Initialize(File.DirRootExternal, "world2.jpg", False)
STNew.Initialize(File.DirRootExternal, "world2.jpg", False)
ST.Initialize(File.DirDefaultExternal, "world.jpg", False)
crVersie = ST.ExecQuery("Select Versie FROM Vers")
crVersie.Position = 0
VersieOld = crVersie.GetString("Versie")
crVersie = STNew.ExecQuery("Select Versie FROM Vers")
crVersie.Position = 0
VersieNew = crVersie.GetString("Versie")
crVersie.Close
If VersieNew <> VersieOld Then
File.Delete(File.DirDefaultExternal, "world.jpg")
File.Copy(File.DirRootExternal, "world2.jpg", File.DirDefaultExternal, "world.jpg")
File.Delete(File.DirRootExternal, "world2.jpg")
ST.Initialize(File.DirDefaultExternal, "world.jpg", False)
StartActivity(Region)
End If
End If
File.Delete(File.DirRootExternal, "Temp.apk")
End If