Controles personalizados: Crear botones

[Lilith_9998]

Hola a todos, menos mal esto resulto ser mas facil de lo que pensaba.... despues de mucho buscar he intentar, encontre una solucion muy practica, se trata de crear un panel y dentro del panel crear los bontones (o agregarle los botones al panel), como lo quieran tomar, les comparto el codigo y una direccion con ducumentacion, espero esto le sea util a alguien....

Protected Sub Llenar_Botones(ByVal Id_Menu As Integer)
Dim Sql As String = ""
Dim id As Integer
id = Session("ID_Menu")

Dim Tb As New DataTable
If Request.QueryString("Id") <> "" Then
id = Request.QueryString("Id")
Try
If ConexionBD.Conectar(Session("BD")) = 1 Then
Sql = "SELECT Menu_Id, ParentID, Texto, http FROM dbo.BDMenu_Web WHERE ParentID =" & id & ""
Using ds As DataSet = ConexionBD.EjecutarDataset(Sql)
For Each drBTItem As Data.DataRow In ds.Tables(0).Rows
Dim Boton As New Button
Panel1.Controls.Add(Boton)
Boton.ID = drBTItem("Menu_Id").ToString
Boton.Text = drBTItem("Texto").ToString
Boton.PostBackUrl = drBTItem("http").ToString
Next
End Using
End If

Catch ex As Exception

End Try
Else
End If
End Sub

http://msdn.microsoft.com/es-es/library/kyt0fzt1(VS.80).aspx