Protected Sub bt_aggiungi_alloggio_click(ByVal sender As Object, ByVal e As System.EventArgs) Handles bt_aggiungi_alloggio.Click
        Dim uc As New UserControl()
        Dim tp As New AjaxControlToolkit.TabPanel

        tp.HeaderText = nometipo_alloggio("ita", dp_tipoalloggi.SelectedValue) ' load usercontro insert in tab panel

        uc = Page.LoadControl(control_alloggi(dp_tipoalloggi.SelectedValue)) ' load usercontro insert in tab panel

        tp.Controls.Add(uc)

        tp.ID = tp.UniqueID

        tab_alloggi.ActiveTabIndex = tab_alloggi.Tabs.Count

        tab_alloggi.Tabs.Add(tp)
        ViewState("tabs") = tab_alloggi.Tabs

        caricatab()
    End Sub
 
    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        If Not IsPostBack Then
            ViewState("tabs") = tab_alloggi
        End If
    End Sub
 

   Protected Sub caricatab()
        Dim tb As AjaxControlToolkit.TabPanelCollection
        tb = CType(ViewState("tabs"), AjaxControlToolkit.TabPanelCollection)
        Response.Write(tb.Count)
        For Each a As AjaxControlToolkit.TabPanel In tb
            tab_alloggi.Tabs.Clear()
            tab_alloggi.Tabs.Add(a)
        Next

    End Sub