Spanish [SOLUCIONADO] Consulta servicio

Sub Service_Start (StartingIntent As Intent)
   
    StartServiceAt("", DateTime.Now + 1 * DateTime.TicksPerMinute, True)
   
    If isConnected Then
       
    Dim ruta As String
    If File.ExternalWritable Then
    ruta = File.DirDefaultExternal
        Else
    ruta = File.DirInternal
    End If
    If File.Exists(ruta, "bd.db") = False Then
    File.Copy(File.DirAssets, "bd.db", ruta, "bd.db")
    End If
    s.Initialize(ruta, "bd.db", True)
    ServerIP="ip o direccion del servidor"
    User_PHP 'comprueba si el usuario y imei del equipo es correcto en el servidor mysql, si es así ejecuta la sincronizan de datos
   
    End If
  
End Sub