Sub Process_Globals
Public tmr As Timer
Public MyPicture As String = ""
End Sub
Sub Globals
End Sub
Sub Activity_Create(FirstTime As Boolean)
tmr.Initialize("MyTimer", 5000)
tmr.Enabled=True
'MyPicture is a varriable that I call from different routines and change the gif'
End Sub
Sub MyGif(pos As String)
If File.Exists(File.DirAssets, pos) = True Then
B4XGifView1.SetGif(File.DirAssets, pos)
B4XGifView1.Base_Resize(100%x,100%y)
End If
Sleep(300)
End Sub
Sub MyTimer_Tick
MyGif(MyPicture)
End Sub