qui avrei risolto così (o almeno credo):
codice:
Partial Class AR_ucModalAvviso
    Inherits UserControl

    Public ClassTitoloModal As String = "modal-block modal-header-color modal-block-success mfp-hide"
    Public ClassFaIcon As String = "fa fa-check-circle"
    Dim lblTitoloModal As Label = FindControl("lblTitoloModal")
    Dim lblCorpoModal As Label = FindControl("lblCorpoModale")

    Public Sub Avviso(ByVal Classe As String, ByVal corpo As String)

        Select Case Classe
            Case "SALVA"
                ClassTitoloModal = "modal-block modal-header-color modal-block-success mfp-hide"
                ClassFaIcon = "fa fa-check-circle"
                lblTitoloModal.Text = "SALVA"
            Case "ATTENZIONE"
                ClassTitoloModal = "modal-block modal-header-color modal-block-warning mfp-hide"
                ClassFaIcon = "fa fa-warning"
                lblTitoloModal.Text = "ATTENZIONE"
            Case "INFORMAZIONE"
                ClassTitoloModal = "modal-block modal-header-color modal-block-info mfp-hide"
                ClassFaIcon = "fa fa-info-circle"
                lblTitoloModal.Text = "INFORMAZIONE"
            Case "ERRORE"
                ClassTitoloModal = "modal-block modal-header-color modal-block-danger mfp-hide"
                ClassFaIcon = "fa fa-times-circle"
                lblTitoloModal.Text = "ERRORE"
        End Select

        lblCorpoModal.Text = corpo

        ScriptManager.RegisterStartupScript(Me.Page, Page.GetType, "HideLoginDialog", _
                                               "<script type=""text/javascript"">" & _
                                               "$(document).ready(" & _
                                               "function () { " & _
                                               "$.magnificPopup.open({" & _
                                               "items: {" & _
                                                "src:'#modalHeaderColorPrimary'" & _
                                                "}," & _
                                                "modal: true " & _
                                                " });" & _
                                                "});</script>", False)
    End Sub

End Class
però ho un problema nella pagina dove includo questo file:
codice:
<%@ Page Title="Zara Mobile" Language="VB" MasterPageFile="~/Site.Master" AutoEventWireup="true" CodeBehind="Default.aspx.vb" Inherits="ZaraMobile._Default" %>

<%@ Register Src="~/Common/ucModalAvviso.ascx" TagPrefix="uc1" TagName="ucModalAvviso" %>
nel code behind ottengo:
codice:
BC30451    'ucModalAvviso' non è dichiarato. Potrebbe essere inaccessibile a causa del livello di protezione.