[silverlight]

في الحدث الخاص بالباتون عليك أن تحدد الباتون الذي سيؤدي الوظيفة

PHP كود :

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Dim btn As Button = New Button
        With btn
            .Text = "Any Text"
            .Location = New Point(10, 10)
        End With
        AddHandler btn.Click, AddressOf Btn_Click
        Me.Controls.Add(btn)
    End Sub

    Private Sub Btn_Click(sender As Object, e As EventArgs)
        ' اكتب ما تريده في الحدث

        Dim b As Button = CType(sender, Button)
        Select Case b.Text
            Case "Any Text"
                Me.Close()

        End Select

    End Sub