[silverlight]

PHP كود :

Public Class Form1
    Private magicForm As Form

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        magicForm = New Form
        magicForm.Name = "Ahmed" ' أوي اي اسم
        magicForm.show
    End Sub


    ' هذا لو سوف تبقيه مفتوحا مع نهاية الفورم الرئيسي مثلا

    Private Sub Form1_FormClosing(sender As Object, e As FormClosingEventArgs) Handles MyBase.FormClosing
        If magicForm IsNot Nothing Then
            magicForm.Close()
            magicForm.Dispose()
            magicForm = Nothing
        End If
    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim f As Form = TryCast(Control.FromChildHandle(magicForm.Handle), Form)
        f.Close()

    End Sub

End Class