diff --git a/B4A/B4XMainPage.bas b/B4A/B4XMainPage.bas
index c1d110d..8a9dab3 100644
--- a/B4A/B4XMainPage.bas
+++ b/B4A/B4XMainPage.bas
@@ -150,7 +150,7 @@ Private Sub b_monitorActivo_Click
 		b_monitorActivo.Text = "Monitor Apagado"
 		l_status.Text = "Monitor Apagado"
 		Starter.monitorActivo = False
-		s.notiHigh("Con internet", $"Monitor apagado!!"$, Monitor.nid, Main)
+		s.notiHigh("Con internet    ✅", $"Monitor APAGADO    ❌"$, Monitor.nid, Main)
 	Else
 		cd1.Initialize(Colors.RGB(16, 141, 0), 10dip)
 		b_monitorActivo.Background = cd1
diff --git a/B4A/Monitor-Keymon.b4a.meta b/B4A/Monitor-Keymon.b4a.meta
index 1c4dd39..2d70531 100644
--- a/B4A/Monitor-Keymon.b4a.meta
+++ b/B4A/Monitor-Keymon.b4a.meta
@@ -22,6 +22,6 @@ ModuleClosedNodes4=
 ModuleClosedNodes5=8,10
 ModuleClosedNodes6=
 ModuleClosedNodes7=
-NavigationStack=B4XMainPage,b_timeout_Click,207,0,B4XMainPage,Initialize,53,0,B4XMainPage,b_notifAccess_Click,216,0,B4XMainPage,CreateListItem,226,3,Visual Designer,login.bal,-100,3,B4XMainPage,clv_server_ItemClick,164,0,B4XMainPage,b_monitorActivo_Click,149,0,B4XMainPage,lv_server_ItemClick,160,0,Visual Designer,listItem.bal,-100,6,B4XMainPage,B4XPage_Created,60,6
+NavigationStack=B4XMainPage,b_notifAccess_Click,216,0,B4XMainPage,CreateListItem,226,3,Visual Designer,login.bal,-100,3,B4XMainPage,clv_server_ItemClick,164,0,B4XMainPage,lv_server_ItemClick,160,0,Visual Designer,listItem.bal,-100,6,B4XMainPage,B4XPage_Created,60,6,Monitor,probamosConexion,77,6,B4XMainPage,b_monitorActivo_Click,146,1,Monitor,JobDone,124,4
 SelectedBuild=0
 VisibleModules=1,7,3,5,6,4
diff --git a/B4A/monitor.bas b/B4A/monitor.bas
index 3cc3b79..a48532c 100644
--- a/B4A/monitor.bas
+++ b/B4A/monitor.bas
@@ -81,7 +81,7 @@ Sub probamosConexion
 			B4XPages.MainPage.b_ping.Text = "Internet Ok"
 		End If
 		Dim cmd As DBCommand
-		s.notiLowReturn("Con internet", "Hay conexion a internet", nid)
+		s.notiLowReturn("Hay conexion a internet    ✅️", "Revisando servidor ...", nid)
 		If B4XPages.IsInitialized Then B4XPages.MainPage.l_status.Text = "Hay conexion a internet!!"
 		Dim cmd As DBCommand
 		cmd.Initialize
@@ -93,7 +93,7 @@ Sub probamosConexion
 		Timer1.Enabled = True
 	Else
 		If logger Then Log("Sin conexión a internet!!!")
-		s.notiLowReturn("Sin internet", "NO hay conexion a internet", nid)
+		s.notiLowReturn("SIN INTERNET     ❌", "NO hay conexion a internet.", nid)
 		If B4XPages.IsInitialized Then B4XPages.MainPage.l_status.Text = "NO hay conexion a internet!!"
 	End If
 
@@ -114,7 +114,7 @@ Sub JobDone(Job As HttpJob)
 		cd1.Initialize(Colors.Red, 10dip)
 		If B4XPages.IsInitialized Then B4XPages.MainPage.b_ping.Background = cd1
 		If B4XPages.IsInitialized Then B4XPages.MainPage.b_ping.Text = "DBReqServer KO"
-		s.notiHigh("Con internet", $"El servidor ${Starter.DBReqServer} NO responde!!"$, nid, Main)
+		s.notiHigh("ERROR     ❌", $"El servidor ${Starter.DBReqServer} NO responde!!"$, nid, Main)
 		If Job.ErrorMessage.Contains("failed to connect") Or Job.ErrorMessage.Contains("Failed to connect") Then
 '			ToastMessageShow("¡Hubo un error contactando al servidor, por favor revise su conexión!", True)
 		End If
@@ -128,7 +128,7 @@ Sub JobDone(Job As HttpJob)
 					Private valor As String = records(resultado.Columns.Get("VALOR"))
 					If valor = "OK" Then
 						DBOk = True
-						s.notiLowReturn("Con internet", $"El servidor esta respondiendo!!"$, nid)
+						s.notiLowReturn($"El servidor esta respondiendo    ✅"$, "Servidor OK    ✅", nid)
 						If B4XPages.IsInitialized Then
 							B4XPages.MainPage.l_status.Text = "El servidor esta respondiendo!!"
 							Dim cd1 As ColorDrawable
@@ -137,7 +137,7 @@ Sub JobDone(Job As HttpJob)
 							B4XPages.MainPage.b_ping.Text = "Servidor Ok"
 						End If
 					Else
-						s.notiHigh("Con internet", $"El servidor NO esta respondiendo!!"$, nid, Main)
+						s.notiHigh("ERROR    ❌", $"El servidor NO esta respondiendo!!"$, nid, Main)
 						If B4XPages.IsInitialized Then
 							B4XPages.MainPage.l_status.Text = "El servidor NO esta respondiendo!!"
 							Dim cd1 As ColorDrawable