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)
Else
File.Copy(File.DirAssets,"birds_world.jpg", File.DirDefaultExternal,"world2.jpg")
STNew.Initialize(File.DirDefaultExternal, "world2.jpg", False)
ST.Initialize(File.DirDefaultExternal, "world.jpg", False)
crVersie = ST.ExecQuery("Select Versie FROM Versie")
crVersie.Position = 0
VersieOld = crVersie.GetString("Versie")
crVersie = STNew.ExecQuery("Select Versie FROM Versie")
crVersie.Position = 0
VersieNew = crVersie.GetString("Versie")
crVersie.Close
If VersieNew <> VersieOld Then
File.Delete(File.DirDefaultExternal, "world.jpg")
RenameFile("birds_world2.jpg", "world.jpg")
File.Delete(File.DirDefaultExternal, "world2.jpg")
End If
StartActivity(MyLangRegion)
End If
End If