Android Question Black screen at the beginning

ModoVideo=False
    ModoResume=3
    Activity.LoadLayout("Altius")
    Sleep(100)
    ProgressDialogShow("INICIANDO APLICACIÓN")
    If FirstTime Then
        ConexionGps.Initialize("ConexionGPS")
        auth.initialize("auth")
        player1.Initialize("player")
    End If
    If Mapa.IsGooglePlayServicesAvailable = False Then
        ToastMessageShow("Instale Google Play Services.", True)
    End If
    ListaPaginas.Initialize
    MyFont=Typeface.LoadFromAssets("AvenirNext-Medium.otf")
    userLocation.Initialize2(0,0)
    Seleccion=0
    intAlto=100%y
    intAncho=100%x
    intAncho2=intAncho*(.94)
    scvGaleria.Initialize(intAncho2,"scvGaleria")
    scvGaleria2.Initialize(intAncho2,"scvGaleria2")
    IdApartamentoActual=0
    IdProyectoActual=0
    lstProyectos.Initialize
    lstApartamentos.Initialize
    lstPromos.Initialize
    ListaNombreProyectos.initialize
    listaMensajes.Initialize
    listaNoticias.Initialize
    lstShowrooms.Initialize
    lstShowroomsBilu.Initialize
    lstShowroomsMore.Initialize
    lstShowroomsNostrum.Initialize
    ListaApartamentosFavoritos.Initialize
    ListaProyectosFavoritos.Initialize
    lstBarriosBuscador.Initialize
    lstDormitorios.Initialize
    lstEstados.Initialize
    lstPisos.Initialize
    lstDormitoriosProyecto.Initialize
    lstEstadosProyecto.Initialize
    lstPisosProyecto.Initialize
    CargarShowrooms
    ObtenerPromos
    AjustarControles
    MenuOpen=False
    pnlLateral.Visible=False
    CargarFondosFijos
    sepVideo.Player = player1
    ProgressDialogHide
    If File.Exists(File.DirDefaultExternal,"IdCliente_Altius.txt") Then
        IdCliente=File.ReadString(File.DirDefaultExternal,"IdCliente_Altius.txt")
        CallSubDelayed(FirebaseMessaging,"Service_Create")
        MostrarPanel(pnlSeleccion)
        CargarMensajes
        CargarFavoritos
        btnAbrirSesion.Visible=False
    Else
        lblOfrecer.Visible=False
        MostrarPanel(pnlInicial)
    End If

#Region  Service Attributes
    #StartAtBoot: False
    #ExcludeFromLibrary: true
#End Region

Sub Process_Globals
    Public auth As FirebaseAuth
    Public facebook As FacebookSdk
End Sub

Sub Service_Create
    Log("AUTH CREATE")
    auth.Initialize("auth")
    facebook.Initialize
End Sub

Sub Service_Start (StartingIntent As Intent)
    Log("AUTH START")
    Main.ModoResume=2
End Sub

'Return true to allow the OS default exceptions handler to handle the uncaught exception.
Sub Application_Error (Error As Exception, StackTrace As String) As Boolean
    Return True
End Sub

Sub Service_Destroy
End Sub