كود :
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المشكلة انه اذا اظفنا اداة اخرى على الفورم مثل بيكتر بوكس او واب براوزر يقع مشكل ولا يفتح الفورم
