Dim SplashWindow As Panel
Dim splashIcons(2) As Bitmap
Dim centerIcon As ImageView
Dim bd As BitmapDrawable
SplashWindow.Initialize("")
Activity.AddView(SplashWindow,0,0,100%x,100%y)
SplashWindow.Color = Colors.Black
DoEvents
centerIcon.Initialize("")
splashIcons(0).InitializeSample(File.DirAssets, "app_icon_300.png", Min(50%x,50%y), Min(50%x,50%y))
bd.Initialize(Main.splashIcons(0))
centerIcon.Background = bd
SplashWindow.AddView(centerIcon,50%x - Min(50%x,50%y)/2,50%y - Min(50%x,50%y)/2,Min(50%x,50%y),Min(50%x,50%y))
DoEvents