Spanish Pequeña App sin layout

[compilador]

Hola a todos

Necesitaba una pequeña App que simplemente me diga la IP del dispositivo, ya que no tiene wifi pero si conexión Ethernet.

Seguí el ejemplo de este post: https://www.b4x.com/android/forum/threads/get-local-lan-ip-address.10570/

Ya está funcionando, al ejecutarla presenta un mensaje con la IP y se cierra, pero primero pone la pantalla en negro durante una pequeña fracción de segundo. Sólo quiero que se vea el mensaje pero no logro evitar la pantalla negra.

He probado por código poniendo el Activity.color a tranaparente, con el diseñador, configurando el fondo con Alpha a 0, con Alpha a 255 y color transparente, poniendo un panel con las dos opciones anteriores, pero no logro lo que quiero.

Alguien sabe como evitar esa pantalla negra?

Gracias

 

[bgsoft]

Hola

Si escribes el ejemplo concreto será mas facil responderte

Saludos

 

[compilador]

Sub Process_Globals
    'These global variables will be declared once when the application starts.
    'These variables can be accessed from all modules.
    Dim MyLan As ServerSocket  ' Lib Network
End Sub

Sub Globals
    'These global variables will be redeclared each time the activity is created.
    'These variables can only be accessed from this module.

End Sub

Sub Activity_Create(FirstTime As Boolean)
    'Do not forget to load the layout file created with the visual designer. For example:
    Activity.LoadLayout("main")
'    Activity.Color = Colors.Transparent
    If FirstTime Then
        MyLan.Initialize(0, "")
    End If
    Log(MyLan.GetMyIP) ' my ip local or not
    '
    If MyLan.GetMyIP = "127.0.0.1" Then  '
        ToastMessageShow("You are not connected", True)
        'ExitApplication
        'Return
    Else
        ToastMessageShow("IP LOCAL: " & MyLan.GetMyIP, True)
        DoEvents
    End If
    Activity.Finish
End Sub