[silverlight]

PHP كود :

 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