Sub link_Click (Tag As Object)
Dim sRef As String = Tag
Dim sUrl As String = "https://www.boe.es/diario_boe/xml.php?id=" & sRef
Dim mapParam As Map = CreateMap("Url":sUrl,"Subtitulo":"Datos de documento del BOE","Boletin":"BOE-BOE-","Tab":0)
// Pass link data
B4XPages.MainPage.pBOE_BOE_DatosDocumento.mapParam = mapParam
B4XPages.ShowPage("B4XPage_BOE_DatosDocumento")
End Sub