Transparencia en Windows Forms

Ejemplo para visual basic.net que hace un efecto Fade in Fade out a un formulario, modificando la propiedad Opacity de los mismos mediante un temporizador

Cuando se carga un formulario se realiza el fade in, y cuando se descarga el Fade Out
Para usarlo en varios formularios, hay que crear una instancia de una simple clase que se encarga de aplicarle el incremento o decremento de la transparencia , en los eventos Shown y FormClosing
Nota. No se requiere colocar un control timer en cada formulario, ya que el timer está creado dentro del módulo de clase
Los únicos valores que hay que indicarle al módulo antes de cargarlo ( en el Load ) son:

• El formulario
  
• El valor máximo de transparencia ( el valor de transparencia puede ser un valor desde 0.0 hasta 1. esto en el evento de carga de cada form )
  
• El intervalo en milisegundos.

Código fuente del módulo de clase
Option Explicit On Imports System Imports System.Threading Public Class Class1 Private tmr As Timer ' variable para el temporizazor Private WithEvents mForm As Form ' variable con evento para el formulario Private mAccion As Boolean ' Fade in - Fade out Private mIntervalo As Integer ' velocidad del timer Private mMaxTransparencia As Single ' valor de transparencia 'declaración del delegado Private Delegate Sub deleg_Valor(ByVal x As Double) 'función que utiliza el delegado Private Sub Transparencia(ByVal x As Double) Select Case mAccion Case True If mForm.Opacity >= mMaxTransparencia Then ' Termina el timer tmr.Dispose() Else mForm.Opacity += x ' incrementa el Opacity End If Case False ' fin del timer y descarga el formulario If mForm.Opacity <= 0 Then mForm.Close() tmr.Dispose() Else mForm.Opacity -= x ' incrementa la opcidad End If End Select End Sub ' recibe el formulario, el valor máximo de 'transparencia (0.1 - a 1.0), y el intervalo en milisegundos Sub Comenzar(ByVal frm As Form, _ Optional ByVal MaxTransparencia As Single = 1, _ Optional ByVal Intervalo As Integer = 50) If mForm Is Nothing Then mForm = frm mForm.Opacity = 0 mMaxTransparencia = MaxTransparencia mIntervalo = Intervalo End If End Sub ' Crea y comienza el timer Private Sub aplicar_Fade(ByVal Accion As Boolean) If Not tmr Is Nothing Then tmr.Dispose() tmr = Nothing End If mAccion = Accion tmr = New Timer(New TimerCallback( _ AddressOf TimerEvent), Nothing, 0, mIntervalo) End Sub ' timer Private Sub TimerEvent(ByVal o As Object) If mForm.IsHandleCreated = True Then mForm.BeginInvoke(New deleg_Valor(AddressOf Transparencia), 0.05) End If End Sub ' cuando carga le establece el valor de Opacity en 0 Private Sub mForm_Load(ByVal sender As System.Object, _ ByVal e As System.EventArgs) _ Handles mForm.Load mForm.Opacity = 0 End Sub ' cuando se muestra el form, le aplica el fade in Private Sub mForm_Shown(ByVal sender As Object, _ ByVal e As System.EventArgs) Handles mForm.Shown aplicar_Fade(True) End Sub Private Sub mform_FormClosing(ByVal sender As Object, _ ByVal e As System.Windows.Forms.FormClosingEventArgs) _ Handles mForm.FormClosing If mForm.Opacity <> 0 Then e.Cancel = True ' cuando cierra el form le aplica la _ 'transparencia hsata desvanecerlo aplicar_Fade(False) End If End Sub Protected Overrides Sub Finalize() MyBase.Finalize() If Not mForm Is Nothing Then mForm = Nothing End If End Sub End Class