اضافه کردن رویداد به button به صورت runtime

با سلام
من به بن بست رسیدم نمی دونم باید چه کارکنم

انتهای برنامه ام
فرض کنید یک حلقه داریم از دکمه که مثلا چهار دکمه ( به تعداد نا مشخص ) ایجاد می کند

for i=0 to 4
Dim b As New Button
b.Name = "b" +i.ToString
b.Text = "b" +i.ToString
e.Controls.Add(b
next
حالا چگونه تشخصی بدهم که روی کدام دکمه کلیک می کنم؟

دوست عزیز این سوال چندین بار تکرار شده اگه یه سرچ میزدید کارتون حل میشد
باید رویداد این دکمه ها را اضافه کنید برای همین این کد را اضافه کنید

addhandler b.click,addressof yoursub

sub yoursub(sender as object,e as eventargs)

endsub

حالا رویداد کلیک این دکمه ها به تابع yoursub پاس داده می شود و پارامتر sender نماینده دکمه است و با کد زیر می توانید به نام ان دکمه پی ببرید

ctype(serder,button).name

سلام باید هندل بدی
این رو توی فرم لود بذار
Dim Btn As New Button
AddHandler btn.Click, AddressOf btn_click


Sub btn_click(ByVal sender As Object, ByVal e As EventArgs)'this function
MsgBox("Button click")'Button clicked
End Sub
این برای یک Button
این ررو برای همه تست کن امیدوارم که جواب بده

اضافه کردن رویداد به button به صورت runtime