Sub Activity_Create(FirstTime As Boolean)
Timer1.Initialize("Timer1", 5000)
FadeInOut.InitializeAlpha("anim",1,0)
FadeInOut.Duration = 2000
lblValue.text = "Testing"
Timer1.Enabled = True
End Sub
Sub Timer1_Tick
Timer1.Enabled = False
FadeInOut.Start(lblValue)
End Sub
Sub anim_AnimationEnd
lblValue.Text = "Testing2"
FadeInOut.RepeatMode = FadeInOut.REPEAT_REVERSE
Timer1.Enabled = True
End Sub