[kiki]

وعليكم السلام ورحمة الله وبركاته

هذا كود بسيط لانشاء زر جديد من خلال الكود

كود :

       Dim BT As New Button
       With BT
           .Text = "Click Here"
           .Size = New Size(75, 23)
           .Location = New Size(20, 20)
           .Name = "Button7"
       End With
       AddHandler BT.Click, AddressOf Button7_Click
       Controls.Add(BT)

لاحظ وجود هذا السطر

كود :

AddHandler BT.Click, AddressOf Button7_Click

وهو المطلوب بخصوص الحدث الان لتنفيذ الحدث لما تم من مسميات كل ما عليك فعله
انشاء هذا الكود

كود :

   Private Sub Button7_Click(sender As Object, e As EventArgs)
       MsgBox("Hello!")
   End Sub