البته راه دیگه ای رو هم پیدا کردم



Dim clt_imagebutton_up AsNew ImageButton
clt_imagebutton_up.ImageUrl = "~/Images/ToolsImage/gridview_up.gif"clt_imagebutton_up.ID = "clt_up_" + par_id.Value.ToString
clt_imagebutton_up.CommandArgument = par_id.Value.ToString
clt_imagebutton_up.CommandName = par_id.Value.ToString
AddHandler clt_imagebutton_up.Click, AddressOf dynamicbutton_Click





PrivateSub dynamicbutton_Click(ByVal sender As System.Object, ByVal e As System.Web.UI.ImageClickEventArgs)
Dim x As ImageButton = CType(sender, ImageButton)
Label1.Text = x.ID
EndSub