'private array that holds name of pages of at least part of them
    Private PaginaResalte() As String = New String(6) {"principal.aspx", "quees.aspx", "acciones", "bases", "equipo", "Informes", "Noticia"}

'this is the load of the master page!
    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Dim i As Int32
        For i = 0 To PaginaResalte.GetLength(0) - 1
'try to find out if the page has something to do with the array...
            If Request.Url.AbsolutePath.ToLower.Contains(PaginaResalte(i).ToLower) Then
                Exit For
            End If
        Next i
'if not getting exit from another page not listed, just change the button to the highlighted one...
        If i < PaginaResalte.GetLength(0) Then
            Select Case i
                Case 0
                    BtnHome.ImageUrl = "~/images/home2.jpg"
                Case 1
                    BtnQueEs.ImageUrl = "~/images/que_es2.jpg"
                Case 2
                    BtnAcciones.ImageUrl = "~/images/acciones2.jpg"
                Case 3
                    BtnBases.ImageUrl = "~/images/bases2.jpg"
                Case 4
                    BtnEquipo.ImageUrl = "~/images/equipo2.jpg"
                Case 5
                    BtnInformes.ImageUrl = "~/images/informes2.jpg"
                Case 6
                    BtnNoticias.ImageUrl = "~/images/noticias2.jpg"
            End Select
        End If
    End Sub