Sub Process_Globals
Private fx As JFX
Private MainForm As Form
Private xui As XUI
Private Button1 As B4XView
Private MoveY As Double
Private Duration As Double = 1000
Private TimerInterval As Long = 15
Private InitialY, FinalY As Double
End Sub
Sub AppStart (Form1 As Form, Args() As String)
MainForm = Form1
MainForm.RootPane.LoadLayout("Layout1")
MainForm.Show
Dim Screen1 As Screen = fx.PrimaryScreen
FinalY = Screen1.MaxX + 10
End Sub
Private Sub MainForm_CloseRequest (EventData As Event)
EventData.Consume
InitialY = MainForm.WindowTop
MoveY = (FinalY - InitialY) / (Duration / TimerInterval)
Do While MainForm.WindowTop < FinalY
MainForm.WindowTop = MainForm.WindowTop + MoveY
Sleep(TimerInterval)
Loop
MainForm.close
End Sub