German B4J UI - Window Form Verhalten/Ändern.....

Sub Process_Globals
    Private fx As JFX
    Private Splash As Form
    Private MainForm As Form
    Private t As Timer
    Private Button1 As Button
    Private iv As ImageView
End Sub

Sub AppStart (Form1 As Form, Args() As String)
    t.Initialize("Timer",5000)
    Splash = Form1
    'MainForm.SetFormStyle("UNIFIED")
    Splash.SetFormStyle("UNDECORATED")
    Splash.RootPane.LoadLayout("SplashScreen")
    'MainForm.RootPane.LoadLayout("Layout1") 'Load the layout file.
    Splash.Show
    MainForm.Initialize("Main",640,480)
    t.Enabled = True
End Sub
Sub Timer_Tick
    t.Enabled = False
    Splash.Close
   
    MainForm.SetFormStyle("DECORATED")
    MainForm.RootPane.LoadLayout("Main")
    'MainForm.RootPane.LoadLayout("Layout1") 'Load the layout file.
    MainForm.Show
   
End Sub