HyperLink.NavigateUrl = vpd.VirtualPath

vpd = new (RouteTable.Routes.GetVirtualPath(Nothing, "Vetrina", parameters))

<td width="90" align="center">
       
<% 
           
           Dim parameters As RouteValueDictionary
           Dim vpd As VirtualPathData
           parameters = New RouteValueDictionary(New With {.locale = "Prova", .Primo = 0})
           vpd = (RouteTable.Routes.GetVirtualPath(Nothing, "Vetrina", parameters))
           HyperLink.NavigateUrl = vpd.VirtualPath
       %>
        <asp:HyperLink ID="HyperLink" runat="server" >
       Tutte
       </asp:HyperLink>


       </td>

<asp:Button ID="Accedi" runat="server" Text="Accedi" onclick="Accedi_Click" />

Protected Sub Accedi_Click(ByVal sender As Object, ByVal e As System.EventArgs)
        Me.Response.RedirectToRoute("Vetrina1", New With {.locale = "Tipologia", .Primo = 0})
    End Sub

 <asp:HyperLink ID="HyperLink" runat="server" >
       Vai al Link
 </asp:HyperLink>