Simple sub to create a splash screen.
		
		
	
	
		
	 
	
	
	
	
	
	
	
		
			
			
			
			
			
		
	
	
	
		
	
	
		
	
Project is attached.
Edit: sp.Close was missing.
			
			
			
				B4X:
			
		
		
		Sub ShowSplashScreen
   Dim sp As Form
   sp.Initialize("sp", 600, 600)
   sp.SetFormStyle("TRANSPARENT")
   sp.BackColor = fx.Colors.Transparent
   'change image here
   CSSUtils.SetBackgroundImage(sp.RootPane, File.DirAssets, "B4R_512_512_transparent.png")
   sp.Show
   sp.RootPane.Alpha = 0
   sp.RootPane.SetAlphaAnimated(500, 1)
   Wait For (sp.RootPane) sp_AnimationCompleted
   Sleep(3000)
   sp.RootPane.SetAlphaAnimated(1000, 0)
   Wait For (sp.RootPane) sp_AnimationCompleted
   sp.Close
   CallSubDelayed(Me, "Splash_Complete")
End Sub
	Project is attached.
Edit: sp.Close was missing.
Attachments
			
				Last edited: