Sub FadeIn
Fader.InitializeAlpha("Fader", 0, 1)
Fader.Duration = 2000
AnimFlag = 0
Fader.Start(Pnl)
End Sub
Sub FadeOut
Fader.InitializeAlpha("Fader", 1, 0)
Fader.Duration = 1000
AnimFlag = 1
Fader.Start(Pnl)
End Sub
Private Sub Fader_AnimationEnd
If AnimFlag = 0 Then CallSub(Main, "FadeIn_Ended")'"FadeIn_Ended" is a Sub in the Main Activity
If AnimFlag = 1 Then
Pnl.RemoveView
CallSub(Main, "FadeOut_Ended")'"FadeOut_Ended" is a Sub in the Main Activity
End If
End Sub