Controles personalizados: Crear botones

[Lilith_9998]

Hola a todos, soy nueva en el foro, estoy trabajando en una pag en visual asp.net, y necestito crear dinamicamente botones; es decir, tengo una pagina Plantilla_Categorias y cada categoria tiene X subcategorias, yo necesito que se me dibujen en la pagina Plantilla_Categorias tantos botones como subcategorias hallan, con el fin de poder acceder a cada subcategoria por medio de dichos botones.
Yo tengo este codigo ya adelantado, pero no se como crear los botenes.... les agradezco la ayuda!!

Protected Sub Llenar_Botones(ByVal Id_Menu As Integer)
Dim Sql As String = ""
Dim id As Integer
'Trabajo con un Plantilla_Categorias, que cree, esta se llena deacuerdo al id
id = Session("ID_Menu")
Dim Tb As New DataTable
If Request.QueryString("Id") <> "" Then
id = Request.QueryString("Id")
Try
'Berifico la conexion a la bd
If ConexionBD.Conectar(Session("BD")) = 1 Then
Sql = "SELECT Menu_Id, ParentID, Texto, http FROM dbo.BDMenu_Web WHERE ParentID =" & id & ""
'Con el ParentId traigo cada una de las subcategorias que tiene la categoria, asociandola con su respectivo id
Using ds As DataSet = ConexionBD.EjecutarDataset(Sql)
For Each drBTItem As Data.DataRow In ds.Tables(0).Rows
'esto lo hace por cada subcategoria encontrada
'Llena el boton con la informacion almacenada en la bd
'Aqui esta lo que necesito.... necesito que se me creen tantos botones como
'subcategorias tenga y que se llenen de esta forma con la respectiva info
Button1.ID = drBTItem("Menu_Id").ToString
Button1.Text = drBTItem("Texto").ToString
Button1.PostBackUrl = drBTItem("http").ToString
Next
End Using
End If
Catch ex As Exception
End Try
Else
End If
End Sub

De ante mano muchas gracias, recibo cualquier aporte, solucion y/o sugerencia... se vale todo!!!