动态加载用户控件

Dim myheader As Control
        Dim strpath As String
        If flag = 1 Then
            ‘admin page
            ‘load the admin_header
            strpath = "admin_header.ascx"
        Else
            strpath = "header.ascx"
        End If
        myheader = LoadControl(strpath)
        Panel2.Controls.Add(myheader)