[silverlight]

افتح مشروع عادي  في الفورم ضع باتون و في الحدث Button Click اكتب الكود بالشكل التالي

كود :

Public Class Form1
   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
       Me.DialogResult = DialogResult.OK
       Dim result As Integer = CInt(Me.DialogResult)
       If result = CInt(DialogResult.OK) Then
           ' do something
           Me.Close()
       End If
   End Sub