....

B4A/C_Historico.bas

@@ -30,6 +30,8 @@ Sub Class_Globals
 	Private b_desc As Button
 	Private ListView2 As ListView
 	Dim tgl As Toggle
+	Private p_nota As Panel
+	Private Panel1 As Panel
 End Sub
 
 'You can add more parameters here.
@@ -55,6 +57,9 @@ End Sub
 'You can see the list of page related events in the B4XPagesManager object. The event name is B4XPage.
 
 Sub B4XPage_Appear
+	p_nota.Height = Root.Height * 0.9
+	p_nota.Width = Root.Width * 0.9
+	Panel1.Visible = False
 	If Not(Starter.gps.GPSEnabled) Then
 		ToastMessageShow("Es necesario tener el GPS encendido", True)
 		StartActivity(Starter.gps.LocationSettingsIntent)