[silverlight]

PHP كود :

Public Class Form1

    Private speed As Single = 2

    Public Sub FadeFormOut()
        For i = 100 To 0 Step -speed
            Me.Opacity = i / 100
            Me.Refresh()
            Threading.Thread.Sleep(50)
        Next
    End Sub

    Private Sub Form1_FormClosing(sender As Object, e As FormClosingEventArgs) Handles MyBase.FormClosing
        FadeFormOut()
    End Sub

End Class