'Main module
Sub Process_Globals
Private fx As JFX
Private MainForm As Form
Private t As Timer
End Sub
Sub AppStart (Form1 As Form, Args() As String)
MainForm = Form1
MainForm.SetFormStyle("UNDECORATED")
MainForm.RootPane.Style = "-fx-background-color: blue;"
MainForm.Show
t.Initialize("t", 3000)
t.Enabled = True
End Sub
Sub t_Tick
t.Enabled = False
Dim f As Form2
f.Initialize
f.Show
MainForm.Close
End Sub