Formulario que se desvanece cuando lo cierras

Es una pijadita, pero le da un efecto diferente a la aplicación

Sólo hay que añadir este código a cualquier winform:

Public Sub FadeForm(ByVal FadeForm As Form, ByVal NumberOfSteps As Byte)
Dim StepVal As Double = Convert.ToDouble(100.0F / NumberOfSteps)
Dim dOpacity As Double = 100.0F
Dim b As Byte = 0

For b = 0 To NumberOfSteps
FadeForm.Opacity = dOpacity / 100
FadeForm.Refresh()
dOpacity -= StepVal
Next
End Sub

Private Sub Form1_FormClosing(ByVal sender As System.Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles MyBase.FormClosing
FadeForm(Me, 200)
End Sub