[bidaya]

كود :

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
       Dim pt As Point = New Point(10, 10)
       For i As Integer = 0 To 5
           Dim btn As Button = New Button
           With btn
               btn.Location = pt
               btn.Text = "button" & (i + 1).ToString
               ' إضبط خصائص الباتون كيفما شئت
           End With
           ' هنا يتم ضبط مكان كل باتون
           pt.Y += btn.Height + 1
           Me.Controls.Add(btn)
       Next

       ' هنا نضيف الحدث لكل باتون
       For Each b As Button In Me.Controls
           AddHandler b.Click, AddressOf Btn_Click
       Next

   End Sub

   Private Sub Btn_Click(sender As Object, e As EventArgs)
       ' اكتب ما تريده في الحدث
       ' هنا نختار الباتون بناء علي التكست الخاص به
       ' ثم نحدد ما يجب أن يحدث عند الضغط علي الباتون
       Dim b As Button = CType(sender, Button)
       Select Case b.Text
           Case "button1"
               Me.Close()
           Case "button2"
               Me.BackColor = Color.Blue
           Case "button3"
               Me.Text = "any text"
           Case "button4"

           Case "button5"

           Case "button6"

       End Select

   End Sub

الكود يقوم بانشاء ازرار مع تعيين حدث النقر لكل زر
المشكلة انه اذا اظفنا اداة اخرى على الفورم  مثل بيكتر بوكس او واب براوزر   يقع مشكل ولا يفتح الفورم