crear y destruir controles por programacion

[abelinobarajas]

Gracias peterpay

Este es mi codigo

----------------------------------------

Partial Class frm_principal
Inherits System.Web.UI.Page
Dim panel_mensaje As New Panel
Dim btn_aceptar_mensaje As New Button
Dim drop_virtual As New DropDownList
Dim listitem_cdvirtual As New ListItem
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
If Not IsPostBack = True Then
End If
End Sub
Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
Session("var_panel_mensaje") = True
up_cdvirtual.ContentTemplateContainer.Controls.Add (panel_mensaje)
panel_mensaje.Controls.Add(btn_aceptar_mensaje)
panel_mensaje.Controls.Add(drop_virtual)
sub_crear_panel_algo()
End Sub
Protected Sub btn_aceptar_mensaje_click(ByVal sender As Object, ByVal e As System.EventArgs)
Dim rmv_control As WebControl = form1.FindControl("panel_mensaje")
form1.Controls.Remove(rmv_control)
End Sub
Protected Sub drop_virtual_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs)

End Sub
Sub sub_crear_panel_algo()
panel_mensaje.ID = "panel_mensaje"
panel_mensaje.BackColor = Drawing.Color.Blue
panel_mensaje.Style.Item("background-color") = "#ffff66"
panel_mensaje.Style.Item("z-index") = "500"
panel_mensaje.Style.Item("position") = "absolute"
panel_mensaje.Style.Item("top") = "200px"
panel_mensaje.Style.Item("left") = "150px"
panel_mensaje.Style.Item("width") = "450px"
panel_mensaje.Style.Item("height") = "350px"
panel_mensaje.EnableViewState = True
panel_mensaje.Visible = True

'form1.Controls.Add(panel_mensaje)

btn_aceptar_mensaje.ID = "btn_aceptar_mensaje"
btn_aceptar_mensaje.BackColor = Drawing.Color.GreenYellow
btn_aceptar_mensaje.Height = "20"
btn_aceptar_mensaje.Width = "100"
btn_aceptar_mensaje.Text = "aceptar"
AddHandler btn_aceptar_mensaje.Click, AddressOf btn_aceptar_mensaje_click

drop_virtual.ID = "drop_virtual"
drop_virtual.Style.Item("background-color") = "#ffff66"
'drop_virtual.Style.Item("z-index") = "700"
drop_virtual.Style.Item("position") = "absolute"
drop_virtual.Style.Item("top") = "20px"
drop_virtual.Style.Item("left") = "16px"
drop_virtual.Style.Item("width") = "110px"
drop_virtual.Style.Item("height") = "10px"

drop_virtual.Items.Add(listitem_cdvirtual.Value.In sert(0, "CREAR"))
drop_virtual.Items.Add(listitem_cdvirtual.Value.In sert(0, "MODIFICAR"))
drop_virtual.Items.Add(listitem_cdvirtual.Value.In sert(0, "TRAER"))
drop_virtual.Items.Add(listitem_cdvirtual.Value.In sert(0, "ELIMINAR"))
drop_virtual.AutoPostBack = True
drop_virtual.EnableViewState = True
AddHandler drop_virtual.SelectedIndexChanged, AddressOf drop_virtual_SelectedIndexChanged
End Sub

End Class